1 while $secret =~ s/(([a-zA-Z]).*)\2/$1/;