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