Select Code to Download

$ perl -Mstrict -Mwarnings -E '
> my @x = (0 .. 10);
...
> say qq{@y};
> '
3 4 5 6 7 8 9 10

$ perl -Mstrict -Mwarnings -E '
> sub blah { my $z = 0; [ grep { /3/ and $z = 1; $z } @_ ] }
...
> '
3 4 5 6 7 8 9 10
3 d e f