#!perl -p
s/(.).*\K\1//&&do$0