请问如何把一个字符串分割成每个单元指定大小的数组?

请问如何把一个字符串分割成每个单元指定大小的数组?

请问如何把一个字符串分割成每个单元指定大小的数组?
各位前辈高手,请看这个例子:
假如某字符串:'AB241286CF'。现在把这个字符串分割成@array={AB24,1286,CF**}(后面不足的用**补足);
split只能按照单个字符分割,但是如果想按照上面的4个字符分割或者多个字节分割,有什么比较方便的作法么?

谢谢您的帮助!
用pack可以么?还有什么更.
用pack可以么?还有什么更加简便的方法么?
谢谢!
$aaaaa = 'asdfghjklqwert.
$aaaaa = 'asdfghjklqwertyui';
@bbbbb = $aaaaa =~ /(.{1,4})/g;
print join ("\n", @bbbbb);
问题已经按照楼上朋友的方.
问题已经按照楼上朋友的方法解决掉,再次感谢!