#!/usr/bin/perl
$/="\r";
while(<>) {
  chomp;
  print $_."\n";
}
