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