if ($^O =~ /Win32/i) {
  do this;
} else {
  do that;
}