$ans = eval "\$str =~ y/\Q$SrchStr\E//";