$ perl -MData::Dump -e '$a="abc";for(1..6){ $a=~m/.|$/g; dd \@-,\@+ }'
([0], [1])
([1], [2])
([2], [3])
([3], [3])
([3], [3])
([0], [1])