#!/usr/bin/perl -pal 
if($t++) { exit;  }
$_=join "",("String \'monkey\' was ", (pop @F)!~/monkey/&& 'not ', 'found in the input string.');
sub BEGIN{ print "Please enter the string to be search for the string 'monkey':";}

##</code><code>##

#!/usr/bin/perl -apn
if ($t++) { exit; }
$_=join "",("String 'monkey' was ", scalar @F ==1 && 'not ', 
        'found in the input string.');
sub BEGIN{ print "Please enter the string to be search for the string 'monkey':";}