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