print "$pattern not found in $file\n" unless $found;