#!/usr/bin/perl
# decode_percent.pl - Don Yang (uguu.org)
#
# 08/01/05


use strict;
my ($i, @c);

binmode STDIN;
binmode STDOUT;
while( $i = <> )
{
   @c = map { chr($_) } unpack 'C*', $i;
   for($i = 0; $i <= $#c; $i++)
   {
      if( $c[$i] eq '+' )
      {
         print ' ';
      }
      elsif( $c[$i] eq '%' )
      {
         print chr(hex($c[$i + 1] . $c[$i + 2]));
         $i += 2;
      }
      else
      {
         print $c[$i];
      }
   }
}