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