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