Select Code to Download

#!/usr/bin/perl

...
$s =~ s/0x([\da-fA-F]{2})/chr(hex($1))/ge;

my $u = decode('UTF-8', $s);