perl -e 'use bytes; eval q(package Foo; sub len{ length "\x{03c5}"});print Foo::len()'
2

##</code><code>##

$ perl -e 'use bytes; do "Foo.pm";print Foo::len()'
1