From: Claudio M. [mailto:cmaffio@bilug.linux.it]
> Eccolo
>
> ----- Inizio prg
>
> #!/usr/bin/perl
>
>
> while (<STDIN>) {
> s/a uno/A\tUNO/g;
> s/b due/B\tDUE/g;
> print;
> }
>
> ---- Fine prg
>
> la riga dopo il while duplicala per ogni sostituzione che vuoi fare
Doh... molto piu' semplice del previsto! ;)
Grazie Claudio.
Paolo