print $s, length $s;; Wide character in print at (eval 19) line 1, line 11. ─ü 1