one question about an exercise in 'Learning Perl 4th Edition'

[Alex Wang02]

Hi,

I have one question about the exercise No. 4  in chapter 7 .

Here is the exercise :
Make a program that prints each line with a word that is capitalized but not 
ALL capitalized. Does it match Fred but neither fred nor FRED?
As suggested in the exercise, I created a small text file adhered below testing 
records:

                fred
aaaaa
afred
FRED
freed
Fred
Mr.Sla
Alexfred
number123Fred

Here is my code:

#----------------code start---------------------

#!perl

use warnings;
use strict;

die "Failed to open file :$!\n" if ( !open MYFILE, "c:\\testdata.txt" );

foreach (<MYFILE>) {
      if (/[A-Z][a-z]+/) {
            print;
      }
}
close MYFILE;

#---------code end--------------

The ouput is like:
Fred
Mr.Sla
Alexfred
number123Fred


My question is how to remove “Mr.Sla” record from the output result .

I have tried to replace the condition with 

                if (/[A-Z][a-z]+/ && /^[.]/)

But it didn`t work, can someone explain why?

Thanks a lot.

Alex Wang

**************** CAUTION - Disclaimer *****************
This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely 
for the use of the addressee(s). If you are not the intended recipient, please 
notify the sender by e-mail and delete the original message. Further, you are 
not 
to copy, disclose, or distribute this e-mail or its contents to any other 
person and 
any such actions are unlawful. This e-mail may contain viruses. Infosys has 
taken 
every reasonable precaution to minimize this risk, but is not liable for any 
damage 
you may sustain as a result of any virus in this e-mail. You should carry out 
your 
own virus checks before opening the e-mail or attachment. Infosys reserves the 
right to monitor and review the content of all messages sent to or from this 
e-mail 
address. Messages sent to or from this e-mail address may be stored on the 
Infosys e-mail system.
***INFOSYS******** End of Disclaimer ********INFOSYS***