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