#!/usr/bin/perl
print "Content-type: text/html\n\n";

   ......This Works...................

$comment = "My lawyer is named will";

for ($new_comment = $comment) 
{
s/lawyer/Banker/eig; s/will/Barney/eig; s/is/Was/eig;
}
print $new_comment;

##</code><code>##



.......Why Doesnt This Work ? ................ 

$comment = "My lawyer is named will";

for ($new = $comment) {
$comment = &doit($comment);
}

sub doit{
$go = ";gie/moT/lliw/s ;gie/reknaB/reywal/s ;gie/yenraB/derf/s";
$com = join("", reverse split(//, $go));
return $com;
}
print $new;