pattern serach over many files

[Tad McClellan]

open (FILE, $file);

You should always, yes *always*, check the return value from open():

open (FILE, $file) or die "could not open '$file' $!";