Select Code to Download

binmode(FH);
local $/ = "\cM\cJ";  # CRLF
...
while (<FH>) { 
   # This might actually work, given that it honors $/
}