$_ = '01234567890';

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