D:\_STM_work>perl -E "my $foo='/path/path/somepgm.exe'; if ($^O eq 'MSWin32') {$foo =~ s?/?\/\/?g;} say $foo;" //path//path//somepgm.exe