#!/usr/bin/perl -n

$|++;

$value=$_; 
$value =~ tr/+/ /;
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
print "$value";