{ local $/ = "\x0D\x0A"; binmode INPUT; binmode OUTPUT; while () { print OUTPUT if $. > 1; } }