2:28 >perl -MData::Dump -we "my $s = '01234abc'; my @a = $s =~ /(?=(.{4}))/g; dd @a;"
("0123", 1234, "234a", "34ab", "4abc")

 2:29 >