use strict; 
my $url         = "http://www.foo.bar/blort/quux.html";
my $safeurl     = uri_escape($url);
my $newurl      = uri_unescape($safeurl);

print "URL.....: $url\n";
print "Safe URL: $safeurl\n";
print "New URL.: $newurl\n";