$_ = '01234abc';

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