1 #!/usr/bin/perl
2 
3 # Extra credit exercise: write a program that prints out any input line that
4 # mentions both wilma and fred.
5 
6 use warnings;
7 use strict;
8 use utf8;
9 
10 while (<>) {
11 	if (/\bwilma\b/i && /\bfred\b/i) {
12 		print "$_";
13 	}
14 }