hola

[Jorge Severino]

Mira:

Te puede servir algo asi:

#!/usr/bin/perl
$string1 = "esta es una cadena de ejemplo";
print "CADENA : $string1 \n";

while ($string1 = ~ s/es/sera/gi) {
	print "encontre patron en cadena \n";
	print " La cadena ahora es : $string1 \n";
}

esop por ahora...
despues es cosa de que el string1 sea la linea de tus archivos...

Jorge




>>Ok, muchas gracias, aunque soy programador el PERL no es mi fuerte ni
>>menos programa BATCH se le agradece.


>mira en las expresiones regulares de perl, existe el modificar y
>reemplazar  " /s/string_original/string_nuevo "

>es super util y facil de usar...