if ($a=~/$b/ or $b=~/$a/)
{print "correct";}