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