my($old);
($old,$/) = ($/,$CRLF); # read a CRLF-delimited line
# Some stuff
$/ = $old;              # restore old line separator