Select Code to Download

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

#!/usr/bin/perl -apn
if ($t++) { exit; }
...
        'found in the input string.');
sub BEGIN{ print "Please enter the string to be search for the string 
+'monkey':";}