use strict;

my $a = chr(4000);
{
        use bytes;
        print substr($a, 0, 1), "\n";  
}

{
        print substr($a, 0, 1), "\n";  
}