$s="string";$m="monkey";print "Please enter the $s to be searched for the $s '$m':\n";print "\u$s '$m' was ",<>!~/$m/&&'not ',"found in the input $s.\n";