... for my $file (@files) { open my $fh, '<', $file or die $!; while (<$fh>) { if (/a particular pattern/) { print "Pattern found in $file\n"; last; } } close $fh; } ...