open(IN, 'in.txt') or die "Can't open input file: $!\n";
open(OUT, '>out.txt') or die "Can't open output file: $!\n";

while (<IN>) {
  my ($stuff, $dregs) = split m[ // ];
  print OUT reverse($stuff), "\n";
}