($newsecret = $secret) =~ tr/a-zA-Z//s;

##</code><code>##

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

##</code><code>##

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