my $needle_regex = quotemeta $needle;
if ($haystack =~ /$needle_regex/i) {