#!/usr/bin/perl

# see also urlencodepath

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