$needle = "a";
$haystack =~ /\Q$needle\E/i;
$index = length($`);