Select Code to Download

$ find /tmp/rja/find_test -type f -print0 |
  perl -0 -ne 'chomp;
  $t=do{local $/; open(T,"<",$_);<T>};
  print "$_ is completely CRLF\n" unless ( $t =~ /(?<!\r)\n/ )'