Help for this page

Select Code to Download

Select or download this

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