Help for this page

Select Code to Download

Select or download this
```
use open qw( :std :locale );
```

Select or download this

use open qw( :std :locale );
use Encode qw(decode is_utf8);
...
$y = join('', $e, $u);
print "Join(\$e, \$u): ", sprintf('%2d', length($y)), " ", $y, 
      " - ", (is_utf8($y)?"is":"is not"), " utf8\n";