Help for this page
for (@words) { print if /foo/; }
my $s = "foo"; for (@words) { print if /$s/; }
my($s1, $s2) = qw/ foo bar /; for (@words) { print if /$s1/; print if /$s2/; }
my @s = qw/ foo bar /; for (@words) { ... print if /$s/; } }
my @s = map qr{$_}, qw/ foo bar /; for (@words) { ... print if /$s/; } }
www.com | www.net | www.org
No recent polls found