print length $str; を入れてみたらわかる