#!/usr/bin/perl
print "Please enter the string to be searched for the string 'monkey':\n";
print "String 'monkey' was ",<>!~/monkey/&&'not ',"found in the input string.\n";