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