#!/usr/bin/perl -p
1while s/(.).*\K\1//