Ayuda - Reemplazar, Reemplazar, Reemplazar

[elsabio]

Hola amigos, como podria reemplazar caracteres y/o palabras de una cadena?

Bueno un ejemplo:

<% texto = "P P P T T T T L L L"%>

<% P = Replace(Replace(texto,"T","X"),"L","X")

Response.Write(P)
%>

En este caso reemplaza la letra T y L por X, quedando asi:
P P P X X X X X X X,

Ahora, como podria reemplazar por una letra (X) o palabra a aquellas que sean difrentes a P?, es decir de un solo paso. Esto para no repetir a cada rato Replace...