Urldecode.pl

1. Decode an URL-encoded string

$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;