Bom, todos vocês já devem ter usado sed para fazer substituições em arquivos, etc, o problema do sed, é que você não pode manda a saida do arquivo para ele mesmo, o arquivo fica em branco; Em perl? não, o arquivo fica bonitinho, e se quiser você ainda pode falar para o perl fazer um backup do arquivo, veja o exemplo:
Arquivo foo.txt:
manah manah
tchutchururu
manah manah
tchutchururu
perl -i.bck -npe 's/manah/bar/;' foo.txt
Deixa eu explicar, o -i cria um arquivo de backup chamado foo.txt.bck -n simula o loop com o ‘operador diamante’ while(<>){}, o -p imprima o arquivo e o -e é para executar comando perl pela linha de comando.
Faciil, não requer pratica nem tão pouco, habilidade
.
