$/='RowwoR';
while (<>) {
  chomp;
  print $_, "\n";
}