Help for this page

Select Code to Download


  1. or download this
    no warnings 'utf8';
use Encode qw(decode is_utf8);
...
$y = join('', $e, $u);
print "Join(\$e, \$u): ", $y, 
      " - ", (is_utf8($y)?"is":"is not"), " utf8\n";
  2. or download this
    Raw $r      : ©®™ - is not utf8
UTF8 $u     : ©®™ - is utf8
Join($r, $u): ©®â�¢©®™ - is utf8
Encd $e     : ©®™ - is utf8
Join($e, $u): ©®™©®™ - is utf8