Help for this page
$a = make_grep("a"); $b = make_grep("b"); print &$a(qw(ack thpt barf)), "\n"; print &$b(qw(ack thpt barf)), "\n";
sub make_grep { my $pat = shift; my $re = qr/$pat/; return sub { grep /$re/, @_ } }