定长切分大字符串

QUOTE:

E:\Cmd\cutest>type sss.pl
$str='aaaabbbbccccddd';
@a = $str =~ /(.{4})/g;
print "\$str is : ",$str,"\n";
print "[$_]\n" for @a;

E:\Cmd\cutest>sss.pl
$str is : aaaabbbbccccddd
[aaaa]
[bbbb]
[cccc]

E:\Cmd\cutest>