Select Code to Download

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/ ) { ...