Can Help me in simple perl code

Hi all
i want a program have input file .txt and process it then got output
Ex:

input:

King Saud University say hi 
Mr.Ahmed Cena have a car 
perl is good !
Dr.john is good!

output:

KSU say hi
Mr.AC have a car 
perl is good!
Dr.John is good!

so the process take the String has a capital letter then process it to be short like above Ex..
but if have(Dr. Mr. Mrs. ....) Don't short it
please help me

What have you tried?

Regards and welcome to the forums,
Alister

yes , i tried
i want it by perl

Do not post classroom or homework problems in the main forums. Homework and coursework questions can only be posted in this forum under special homework rules.

Please review the rules, which you agreed to when you registered, if you have not already done so.

More-than-likely, posting homework in the main forums has resulting in a forum infraction. If you did not post homework, please explain the company you work for and the nature of the problem you are working on.

If you did post homework in the main forums, please review the guidelines for posting homework and repost.

Thank You.

The UNIX and Linux Forums.