{ $str =~ s/./\n/g; local $/ = ""; $len = chomp($str); }