#!/usr/bin/perl -l

$a = chr(1222) . "abc" . chr(2201);

print length($a);
{
   use bytes;
   print length($a);
}
print length($a);
__END__
5
8
5
[download]