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

push @excerpts, $1 while $fc =~ /($re2)/g;