# Perl 5.8
perl -Mencoding=utf8 -le 'print ord chr 156'
156

# Perl 5.10
perl -Mencoding=utf8 -le 'print ord chr 156'
65533

##</code><code>##

      $todecode =~ s/%(?:([0-9a-fA-F]{2})|u([0-9a-fA-F]{4}))/
        defined($1)? chr hex($1) : utf8_chr(hex($2))/ge;