1 #!/usr/bin/perl
2 
3 # Make a program that prints each line that has a word that is capitalized
4 # but not ALL capitalized. Does it match Fred but neither fred nor FRED?
5 
6 use warnings;
7 use strict;
8 use utf8;
9 
10 foreach (grep(/[A-Z][a-z]+\b/, <>)) {
11 	print "$_";
12 }