my $l = do{ use bytes; length $my_string };
print $l;