Update:Added 'glitter' version in a hurry :)

It's a try: 78 for the core part

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

With all the glitter: 189 without newlines

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

regards,
tomte

---