#!/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.";

##</code><code>##

#!/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";