Select Code to Download

$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/, @_ }
}