http://www.perlmonks.org?node_id=661700

Public Scratchpad

Download, Select Code To D/L

---

use strict;
use warnings;

my @data = qw/foo foo1 bar bar1 blah blah1 blah2/;

my @grepped = grep { $_ =~ m/foo/ || $_ =~ m/bar/ } @data;

print "$_\n" for @grepped;
[download]