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