while (my $line = <$foofh>) {
   chomp $line;
   my $out = join "", reverse split '', $line;
   print $fh "$out\n";
}
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить