.......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;