in reply to Counting number of characters in a string

{
  $str =~ s/./\n/g;
  local $/ = "";
  $len = chomp($str);
}

[download]

In Section Seekers of Perl Wisdom