my $line = "I am the very model of a modern major general.";
my $good_match = $line =~ m/major/;
my $bad_match = $line =~ m/corporal/;

print "$line\n" if $good_match == 1; # Prints the line.
print "$line\n" if $bad_match == 1; # Doesn't print anything.