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