men%27s_cloth

##</code><code>##

$q_string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;