sub f { if($^O =~ /Win/) { .... } else { ... } }