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