my $String = "This is the way I do it";
my @Chars = split("", $String);
print ++$#Chars;