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

my $raw = "hello world & friends?";
my $enc = uri_escape($raw);
my $dec = uri_unescape($enc);

print "enc: $enc\n";
print "dec: $dec\n";