Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "restored is utf8 = '" . utf8::is_utf8( $VAR1 ) . "'\n";

 == equal
$VAR1 = "\x{e4}";
...

original is utf8 = '1'
restored is utf8 = ''