my $needle = '@';
my $str_index = $text =~ /.*()\Q$needle\E/ && $-[1];