Help for this page

Select Code to Download

Select or download this
@results = grep { $_ & 1 } (1 .. 10)

Select or download this

my $url = 'http://www.perlmonks.org/';
my @regexes = ('/private(?:/|$)', 'python');
if (grep { $url =~ $_ } @regexes) {
...
} else {
  # handle good URL
}