Select Code to Download

sub foo(&@)
{
...

    # whatever ...
}

foo {$_ =~ /foo/} $a, $b, $c;

foo({$_ =~ /foo/} $a, $b, $c);

my @x = grep({$_ =~ /foo/} @list);