in reply to html code cleanup via GET

s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;

In Section Seekers of Perl Wisdom