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

##</code><code>##

use re 'eval';

$str =~ /
   ($re)
   (?{ print("$1\n"); })
   (?!)
/x;

##</code><code>##

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

##</code><code>##

a
abcd
abc
abce

##</code><code>##

a
abcd
abc
ab
a
abc
ab
a
abce
abc
ab
a