And there's also the slightly obfuscated way to count characters :}

$_ = "This is a test\nMore Test";
$len = map{/./s?$_:("red herring")}split//;
print $len;
[download]

Ooooooohhhhh..... stop me before I do something like that again!!!!