@b = ($a =~ m/aaa bbb .*? (TAG=.*) */g);
 @b = ($a =~ m/aaa bbb .*? {1,}(TAG=.*) */g)