$a = make_grep("a");
$b = make_grep("b");
print &$a(qw(ack thpt barf)), "\n";
print &$b(qw(ack thpt barf)), "\n";