Select Code to Download

$_ = '01234567890';

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

$_ = '01234abc';

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