Help for this page
$input =~ s/\n/\r\n/gs;
print "contains CR's!\n" if $input=~/\r/s; print "contains NL's!\n" if $input=~/\n/s; ...