sub mygrep { my $s = "grep $_[0]"; eval $s; }

print for mygrep('$_ % 2 == 0, 0..10');    # :-)