$_ = "This is a test\nMore Test"; $len = s/(.)/$1/gs; print $len;