#!/usr/bin/perl

print "Please enter the string to be searched for the string 'monkey':\n";

chomp($_ = <STDIN>);
if(/monkey/) {
print "String 'monkey' was found in the input string.\n";
}
else {
print "String 'monkey' was not found in the input string.\n";
}