#!/usr/bin/perl

# http://perlmonks.org/?node_id=1164776

use strict;
use warnings;

my @answer;

'asdfgfhjkl' =~ /f.*j(?{push @answer, $&})^/;

print "$_\n" for @answer;