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