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