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