perl -pe's/(?<=test)/ $state++ % 5 + 1 /e'