#!perl -p0
s/((.
*){9})./\1/g