@substr = unpack "A$size" x POSIX::ceil( length( $str ) / $size ), $str;