Question

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.”

Answer 1

CODE

use strict;
use warnings;

sub main
{
my $input = <STDIN>; #taking input
  
# ^ and $ regex anchors to match the beginning and the end of the string respectively
# + quantifier that means 1 or more of the preceding letters
# space for any spaces in the line
#A-Z for all the capital letters
if($input =~ /^[ A-Z]+$/){ #all capitalized letters like:"FRED"
print "NOT FOUND ";
}
elsif ($input =~ /[A-Z]/) { #capitalized but not all capitalized like:"Fred"
print "FOUND ";
}
else{ #all non capitalized letters like:"fred"
print "NOT FOUND ";
}
}

main();

INPUT	OUTPUT
This is for capitalized but not all capitalized	FOUND
this is for all non capitalized letters	NOT FOUND
THIS IS FOR ALL CAPITALIZED	NOT FOUND

INPUT :