Help for this page
$expr =~ s~\\~~g if ($^O eq 'Win32' || $^O eq 'dos');
D:\>perl -e "print $^O" MSWin32 D:\>e:\perl805\bin\perl -e "print $^O" MSWin32
$expr =~ s~\\~~g if ($^O eq 'MSWin32' || $^O eq 'dos');