my @parts = split /(?=A)/, $str;