Help for this page

Select Code to Download

Select or download this

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

Select or download this

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