[SP-pm] Duvida no uso de substituicões

[Jonhnes Lopes]

Pessoal venho novamente aqui no grupo pedir ajuda. Mas dessa vez em
substituições de strings.Segue o codigo abaixo:

elsif($opcaoET == 3){
        backO3:
        $i=0;
        print "Escolha o texto a ser modificado:\n";
        while($dados[$i] ne ""){
            print "$i - $dados[$i]";
            $i++;
        }
        $opcaoAux = <STDIN>;
        if($opcaoAux >= $i){
            print "Opcao invalida!\n";
            goto backO3;
        }
        print "Opcao $opcaoAux selecionada\n";
        backO3u:
        print "Digite a palavra a ser modificada: ";
        $aux = <STDIN>;
        if($dados[$opcaoAux] =~ /$aux/){  ########## A duvida começa nesse
ponto porque não consigo verificar se existi a palavra digita nesse posição
do vetor #################
            print "Palavra encontrada!\n";
        }
        else{
            print "Palavra nao encontrada!\n";
            goto back03u;
            }
        print "Digite a nova palavra: ";
        $aux1 = <STDIN>;
        $dados[$opcaoAux] =~ s /$aux/\$aux1\;/g;  ################### Aqui
novamente, eu não consigo substituir a 1ª palavra digitada pela 2ª palavra
digitada
    }

Já fico grato pela atenção.
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101021/b098dc6e/attachment.html>