#!/usr/bin/perl -w

$test = "%6d%69%74%73%75%68%69%6b%6f%40%75%62%75%6e%74%75%2e%63%6f%6d";

$test =~ s/%([0-9a-f]{2})/chr(hex($1))/eg;

print $test;