$_ = '01234567890';

push @a, $1 while s/(.{1,4})//;

##</code><code>##

$_ = '01234abc';

$_ = $2.$', push @a, $& while /(.)(.{3})/;