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