Select Code to Download

#!/usr/bin/perl

...
print "original is utf8 = '" . utf8::is_utf8( $data ) . "'\n";
print "restored is utf8 = '" . utf8::is_utf8( $VAR1 ) . "'\n";

$Data::Dumper::Useperl = 1;