$data .= chr hex $1 while $encoded_pair =~ s/(..)//;

##</code><code>##

    $data = join '', map { chr hex $_ }  $encoded_pair =~ /(..)/g;