my $re = 'fo+|zzz';
my @matches = grep /$re/, qw/ f fo foo bar foobar zzzz /;
print "@matches";

##</code><code>##

fo foo foobar zzzz