sub foo { $^O=~/((.*))/; print for @_ }