#!/usr/bin/perl -w use URI::Escape; print uri_unescape($ARGV[0]);