Write a Perl program that prompts a use to input a line of text. If the line of text has a word that is capitalized but not ALL capitalized, the program outputs FOUND. Otherwise, it outputs NOT FOUND. For example, if the user enters Fred, the program outputs FOUND. But if the user enters fred or FRED, the program outputs NOT FOUND.