#!/usr/bin/perl

# see also urlencode

for (@ARGV) {
	my $a = $_;
	$a =~ s{([^A-Za-z0-9/])}{$1 eq " " ? "+" : "%".sprintf("%02x", ord($1))}ges;
	print "$a\n";
}