perl -e 'print "pl\r\n"' > /tmp/j.txt

perl -e 'open(I,"/tmp/j.txt");$/=undef;$_=<I>;
  print ". matches CR on $^O\n" if(/p.{2,6})'