#!perl -p
s/./++$n%10?$&:''/ge