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