This doesn't work exactly as you imagined, but a captured pattern in split will be included in the resulting list.

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