Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use File::Slurp;
...
$file =~ s/\\u(....)/chr hex $1/ge;

print "$file\n";
  2. or download this
    use File::Slurp;
use Encode;
use JSON;
...
    $_->{description} =~ s/([\200-\377]+)/from_utf8({ -string => $1, -
+charset => 'ISO-8859-1'})/eg;
    print "BLA - $_->{description} \n";
}