use strict;
use warnings;

$/ = "\x0d\x0a";
$\ = "\x0a";
while (<>) { chomp; print; }