Select Code to Download

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

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