Select Code to Download

while ($str =~ /($re)/g) {
   print("$1\n");
}

use re 'eval';

...
   (?{ print("$1\n"); })
   (?!)
/x;

my $str = 'aabcdabcabce';
my $re  = qr/a[^a]*/;

a
abcd
abc
abce

a
abcd
...
abc
ab
a