my $re = qr/(?:(simple).*?)+/;
my $string = "This is a simple thing just a simple simple thing.";

$string =~ /$re/g;

say $1 if $1; # says simple
say $2 if $2; # nothing
say $3 if $3; # nothing