Help for this page
my $line = 'fee fi fo fum'; my $pat = qr/i smell the blood/; ... print "of an englishman\n"; } __END__
unless( $line =~ /$pat/ ) { ... if( not $line =~ /$pat/ ) { ... if( $line !~ /$pat/ ) { ...