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]
www.com | www.net | www.org
Too much JavaScript Not enough JavaScript Just the right amount of JavaScript Not enough WebPerl
Results (25 votes). Check out past polls.
