my $str = 'A2ABA45';
my @parts = $str =~ /A[^A]*/g;