Perl: URI encoding/decoding

uri_escape.pl

#!/usr/bin/perl
use strict; use warnings;
use URI::Escape;

# http://www.perlhowto.com/encode_and_decode_url_strings

my $string = "Hello world!";
my $encode = uri_escape($string);
 
print "Original string: $string\n";
print "URL Encoded string: $encode\n";

url_encode.pl

#!/usr/bin/perl
use strict; use warnings;
# http://support.internetconnection.net/CODE_LIBRARY/Perl_URL_Encode_and_Decode.shtml

# encode:
$uri =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

# decode:
$uri =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;