$s = 'abcdefg';
$ml = 3;
@result = unpack 'A3A3A3', $s;