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