use strict;
use warnings;

use Encode;
use charnames qw(greek);

for ("ABCD", "ABC\N{delta}", "\N{alpha}\N{beta}\N{gamma}\N{delta}") {
    printf "orig len=%d, enc len=%d\n",
	length($_),
	length(Encode::encode_utf8($_));
}
__END__
$ perl /tmp/p
orig len=4, enc len=4
orig len=4, enc len=5
orig len=4, enc len=8