$expr =~ s~\\~~g if ($^O eq 'Win32' || $^O eq 'dos');


##</code><code>##

D:\>perl -e "print $^O"
MSWin32
D:\>e:\perl805\bin\perl -e "print $^O"
MSWin32


##</code><code>##

$expr =~ s~\\~~g if ($^O eq 'MSWin32' || $^O eq 'dos');