Select Code to Download

#!/usr/bin/perl -lw

...
    use bytes;
    print '$b Bytes  substr: ', ord(substr($b,0,1));
}

$a Normal substr: 224
$a Bytes  substr: 224
$a equals $b, but $b is internally in UTF8
$b Normal substr: 224
$b Bytes  substr: 224