RosettaCodeData/Task/URL-encoding/Perl/url-encoding-2.pl

use URI::Escape;

my $s = 'http://foo/bar/';
print uri_escape($s);