say chop $str while length $str;