# prints '1' print length("\x{03c5}"), "\n"; #### # prints '2' use bytes; print length("\x{03c5}"), "\n"; #### package Foo; sub len { return length("\x{03c5}"); } 1; #### BEGIN { package Foo; use bytes; } use Foo; package main; print Foo::len(), "\n";