c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $re = qr/(?:(simple).*?)+/;
 ;;
 my $string = 'This is a simple string, just a simple simple thing.';
 my @captures = $string =~ /$re/g;
 dd \@captures;
"
["simple", "simple", "simple"]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $re = qr/simple/;
 ;;
 my $string = 'This is a simple string, just a simple simple thing.';
 my @captures = $string =~ /$re/g;
 dd \@captures;
"
["simple", "simple", "simple"]