Select Code to Download

$a ="aaa bbb ccc dd ee ff dd TAG=lls foo TAG=some randome tag TAG=last
+_tag";

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