scaping or saving Semicolon in PERL replace strin'g

By: Guest
Date: 0000-00-00-00:00:00-
Response
0
use this buddy:

my $query =new CGI;

$txtque = $query->escapeHTML($txtque);

$txtdetail = $query->escapeHTML($txtdetail);

[d] By: Guest
Date: 0000-00-00-00:00:00--
Response
What is 1 + 100

Just Updated::