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

##</code><code>##

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