$_ = 'abcfoodefbarghibaz';
my @parts = split /(foo)/;
print "@parts",$/
__END__
abc foo defbarghibaz