$a = 'dog';
$b = 'doghouse';
if($a =~ /$b/){print "<p>found";}
else{print "<p>not found!";}