$str1 = "Hi(";
$str2 = "hi";
if ($str2 =~ $str1)
{
    print "Match: Yes\n";
}
else
{
    print "Match: No\n";
}