$_ = q[There's food at the bar.];
while(/(?<=foo|bar)(\S+)/g) {
    print "$1\n";
}