@substr = unpack "A$size" x ( 1 + length( $str ) / $size ), $str;