Select Code to Download

while(<>){
    if(/\.\s+([A-Z]+)/){
        print "$1 is capitalized\n";
    }
}

if ( /\.\s+(\w+)/ and $1 eq ucfirst($1) ) {
    print "That'un's Ok", $/;
}