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 a word that is capitalized
 4 ffd9a51f 2023-08-04 jrmu # but not ALL capitalized. Does it match Fred but neither fred nor 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 foreach (grep(/[A-Z][a-z]+\b/, <>)) {
11 ffd9a51f 2023-08-04 jrmu 	print "$_";
12 ffd9a51f 2023-08-04 jrmu }