while (<>) {
   s/\015//g;
   print $_;
}