$input =~ s/\n/\r\n/gs;

##</code><code>##

print "contains CR's!\n" if $input=~/\r/s;
print "contains NL's!\n" if $input=~/\n/s;
...