my $char = "รถ"; print length $char,"\n";