Select Code to Download

$;=pack"H*",'6d6f6e6b6579';$_=<>;$:=($_=~/$;/?' ':' not ');print$;.$:.
+'found';

#!/usr/bin/perl
print"Please enter the string to be searched for the string 'monkey':\
+n"
;$;=pack"H*",'6d6f6e6b6579';$_=<>;chomp;
$:=" was".($_=~/$;/?' ':' not ');print"String ".
$;.$:.'found';