my $position = index(lc($mystr),"a");