Select Code to Download

use strict;
use warnings;
...
       $string =~ m{ ( \d(?:\.\d)* | A+ | B+ ) }gx;
    print qq{     qw(@elems)\n};
}

1.2.3AAABB,AAB,AA,AAABBB
     qw(1.2.3 AAA BB AA B AA AAA BBB)
AABB,AAAB,ABBB
     qw(AA BB AAA B A BBB)