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

##</code><code>##

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