#!/usr/bin/perl

for (@ARGV) {
	my $a = $_;
	$a =~ s/%([A-Fa-f0-9]{2})/chr(hex($1))/ges;
	print "$a\n";
}