1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Make a program that prints each line that has two of the same nonwhitespace
 4 ffd9a51f 2023-08-04 jrmu # characters next to each other. It should match lines that contain words
 5 ffd9a51f 2023-08-04 jrmu # such as Mississippi, Bamm-Bamm, or llama.
 6 ffd9a51f 2023-08-04 jrmu 
 7 ffd9a51f 2023-08-04 jrmu use warnings;
 8 ffd9a51f 2023-08-04 jrmu use strict;
 9 ffd9a51f 2023-08-04 jrmu use utf8;
10 ffd9a51f 2023-08-04 jrmu 
11 ffd9a51f 2023-08-04 jrmu foreach (grep(/(\S)\1/, <>)) {
12 ffd9a51f 2023-08-04 jrmu 	print "$_";
13 ffd9a51f 2023-08-04 jrmu }