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