How about a regex?

if ($mystr =~ /(?=a)/gi) {
  $position = pos($mystr);
}
[download]

I use a positive lookahead assertion so that pos() will correspond to the start of the match, rather than the end.