gistfile1.txt

our %EncodeMap;
for my $num ( 0 .. 255 ) {
    my $chr = chr $num;
    my $h = sprintf "%02X", $num;
    $EncodeMap{$chr} = '%'. uc $h;
}
$EncodeMap{" "} = '+';

sub url_escape {
    return '' unless defined $_[0];
    my $t = shift;
    $t =~ s!([^A-Za-z0-9\-\._~]+)!
        join '', @EncodeMap{exists $EncodeMap{$1} ? ($1) : ($1 =~ /(\C)/gs)}
    !gsxe;
    return $t;
}