binmode $fh_in;
binmode $fh_out;

local $/ = \90;
while (<$fh_in>) {
   print $fh_out "$_\x0D\x0A";
}