$string = "This is a test\nMore Test"; 
$len++ for ($string =~ /./sg);
print $len;

##</code><code>##

$_ = "This is a test\nMore Test";
$len = (split //);
print $len;

##</code><code>##

$string = "This is a test\nMore Test";
$len = (grep /./s, (@chars = split //, $string));