Help for this page

Select Code to Download


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