Buscar y reemplazar

Hola comunidad:

Tengo este codigo que funciona perfecto en AS.

Código :

searchSrting = ",";
replaceString = ".";
oldString = " HOLA, AMIGO, COMO ESTAS";
newString = oldString.split(searchSrting).join(replaceString);
trace (newString);

Busca un caracter o cadena y lo reemplaza.

Necesito algo que me haga lo mismo pero en PERL, alguien sabe?

Gracias anticipadas

Perl, no se mucho, mas bien nos e , solo te puedo decir que se ahce on expresiones regulares, busca en google esto perl expresiones regulares.

Saludos