$comment = "My lawyer is named will";

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

##</code><code>##

   sub doit{
   $go = ";gie/moT/lliw/s ;gie/reknaB/reywal/s ;gie/yenraB/derf/s";

##</code><code>##

   $com = join("", reverse split(//, $go));

##</code><code>##

   return $com;
   }
   print $new;