$body =~ /a/g or die "No first 'a'";
my $index1 = pos($body);
# my $index1 = index($body, 'a') + length('a');