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