Question

1. Write a Perl program that prompts a use to input a line of text. If the line of text mentions both John and Smith, the program outputs “FOUND.” Otherwise, it outputs “NOT FOUND.”

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

3. Write a Perl program that prompts a use to input a line of text. If the line of text has a two of the same nonwhitespace characters next to each other, the program outputs “FOUND.” Otherwise, it outputs “NOT FOUND.” For example, if the user enters “Mississippi,” “Bamm-Bamm,” or “llama,” the program outputs “FOUND.

Answer 1

use strict;
use warnings;

print "Enter line please: ";
my $name = <STDIN>;
chomp $name;

if ( $name =~ /\bJohn and Smith\b/ ) {
print "Found\n";
}
else
{
   print "Not Found\n";
}

Answer 2
***********

use strict;
use warnings;

print "Enter line please: ";
my $name = <STDIN>;
chomp $name;

if ( $name =~ /\bFred\b/ ) {
print "Found\n";
}
else
{
   print "Not Found\n";
}

Answer 3
***********

use strict;
use warnings;

print "Enter line please: ";
my $name = <STDIN>;
chomp $name;

if ($name =~ '([a-z]|[a-z])\\1')
{
print "Found\n";
} else {
print "not found\n";
}

if you have any doubt then please ask me without any hesitation in the comment section below , if you like my answer then please thumbs up for the answer , before giving thumbs down please discuss the question it may possible that we may understand the question different way and we can edit and change the answers if you argue, thanks :)