$needle = "a";
$haystack =~ /\Q$needle\E/i;
$index = $-[0];