c:\@Work\Perl\monks>perl -wMstrict -le
"my @answer;
 'asdfgfhjkljx' =~ /f.*j(?{push @answer, $&})\b/;
 print for @answer;
"
fgfhjklj
fgfhj
fhjklj
fhj

c:\@Work\Perl\monks>perl -wMstrict -le
"my @answer;
 'asdfgfhjklj' =~ /f.*j(?{push @answer, $&})\b/;
 print for @answer;
"
fgfhjklj