##
...
else { $url = $perlmonksURL . $node; }
if ($^O =~ /MSWin32/i) {
...
##
##
# escape URL to keep netscape and/or the shell from choking
# " " is also unsafe (causes "Doc contains no data"
$url=~s/+/%2B/g; # real "+" is preserved
$url=~s/\s/+/g; # get rid of whitespace, not just " "
$url=uri_escape($url,"\',");
##
##
...
eval '
my($pid) = fork;
$url =~ s/\s/+/g;
if ($pid == 0) {
...
##
##
$url=uri_escape($url," \',+");