while (<>) {
   chomp;
   s~\s*//.*~~;
   print reverse $_;
   print "\n";
}