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

##</code><code>##

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