/e permite la evaluación como expresión perl de la
cadena de reemplazo (En vez de considerarla como una cadena delimitada
por doble comilla).
1 #!/usr/bin/perl -w
2 $_ = "abc123xyz\n";
3 s/\d+/$&*2/e;
4 print;
5 s/\d+/sprintf("%5d",$&)/e;
6 print;
7 s/\w/$& x 2/eg;
8 print;
El resultado de la ejecución es:
> replacement.pl abc246xyz abc 246xyz aabbcc 224466xxyyzz
Casiano Rodríguez León
