my @files = ();

##</code><code>##

find(sub { $File::Find::name =~ m/${directory}(.*)$/; push @files, $1},  $directory);
@files = grep { is_dos_format("$directory/$_") } @files;

##</code><code>##

foreach my $file (@files) {
    print "FAILED FILE - $file\n";
}

##</code><code>##

        if ($_ =~ m/\r\n/) {

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $directory = '/tmp/rja/find_test';

find { no_chdir => 1,
       wanted => sub {
           return unless -f;
           open my $fh, $_ or die "Can't open `$_': $!\n";
           my $file=$_;
           /\r\n/ and 
             print "FAILED FILE - $file\n" and return while <$fh>;
       } }, $directory;

__END__