unless( $line =~ /$pat/ ) { ...
if( not $line =~ /$pat/ ) { ...
if( $line !~ /$pat/ ) { ...