use warnings;
use strict;

use Data::Dumper;

my $fc = 'abcdfoofrobnicatebardefforspambazghi'; 
my $re2 = qr/(fo.)(.*?)(ba.)/;
my @excerpts;
push @excerpts, $1 while $fc =~ /($re2)/g;
for my $i ( 0 .. $#excerpts ) {
	$excerpts[$i] =~ /$re2/;
	$excerpts[$i] = { fpart=>$1, bpart=>$3 };
}

print Dumper(\@excerpts);

__END__

$VAR1 = [
          {
            'bpart' => 'bar',
            'fpart' => 'foo'
          },
          {
            'fpart' => 'for',
            'bpart' => 'baz'
          }
        ];