$fc = 'abcdfoofrobnicatebardefforspambazghi'; ##

##

$re1 = qr/fo.*?ba./;

##

##

@excerpts = $fc =~ /$re1/g;

##

##

foofrobnicatebar
forspambaz

##

##

$re2 = qr/(fo.)(.*?)(ba.)/;

##

##

foo frobnicate bar
for spam baz

##

##

@excerpts = $fc =~ /$re2/g;

foo frobnicate bar for spam baz