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