Shell Programming and Scripting

#!/usr/bin/perl
use strict;
my @files;
my $filename;
my $line;
my $count;
my $dir = '/scripts';
opendir (DIR, $dir) or die $!;
while (my $file = readdir(DIR)) {
        next unless (-f "$dir/$file");
        next unless ($file =~ m/^TT04.NOTES/);
        push(@files, $file);
}
closedir(DIR);
print "@files";
foreach $filename (@files) {
        open (FILE, "$filename");
        While ( $line = <FILE> ) {
                if ($line =~ /[\w\.\-]+@[\w\.\-]+\w+/) {
                        print "$line";
                        $count++;
        }
        print "$count";
}
exit 0;

While ( $line = <FILE> ) {

while ( $line = <FILE> ) {