per怎么把一个大字符串分割成为定长的小字符串数组

per如何把一个大字符串分割成为定长的小字符串数组
新手，新问题。

一个字符串例如3121 358 20 4 20 16 232009 23 15 26 322008 187 1882001 1852044**** 81 81 782001 175 15400260026210000202001 179 1792059 1772011 186 1872044 1862013 196 204 212 219 239 251 238 196

我想使用split加上模式匹配把该字符串分割成为4个字符为一个单位的的字符串数组，请问如何实现。

------解决方案--------------------

Perl code

my $s='3121   358     20       4     20     16     232009     23     15     26     322008           187   1882001   1852044**
**     81     81     782001   175   15400260026210000202001   179   1792059   1772011   186   1872044   1862013   196   204  
 212   219   239   251   238   196';
my @sp = $s =~ /.{4}/mg;
print "$_|" for (@sp);