Pessoal venho novamente aqui no grupo pedir ajuda. Mas dessa vez em substituições de strings.Segue o codigo abaixo:<br><br>elsif($opcaoET == 3){
<br>        backO3:
<br>        $i=0;
<br>        print &quot;Escolha o texto a ser modificado:\n&quot;;
<br>        while($dados[$i] ne &quot;&quot;){
<br>            print &quot;$i - $dados[$i]&quot;;
<br>            $i++;
<br>        }
<br>        $opcaoAux = &lt;STDIN&gt;;
<br>        if($opcaoAux &gt;= $i){
<br>            print &quot;Opcao invalida!\n&quot;;
<br>            goto backO3;
<br>        }
<br>        print &quot;Opcao $opcaoAux selecionada\n&quot;;
<br>        backO3u:
<br>        print &quot;Digite a palavra a ser modificada: &quot;;
<br>        $aux = &lt;STDIN&gt;;
<br>        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 ################# <br>            print &quot;Palavra encontrada!\n&quot;;
<br>        }
<br>        else{
<br>            print &quot;Palavra nao encontrada!\n&quot;;
<br>            goto back03u;

<br>            }
<br>        print &quot;Digite a nova palavra: &quot;;
<br>        $aux1 = &lt;STDIN&gt;;
<br>        $dados[$opcaoAux] =~ s /$aux/\$aux1\;/g; 
################### Aqui novamente, eu não consigo substituir a 1ª palavra digitada pela 2ª palavra digitada<br>    }<br><br>Já fico grato pela atenção.<br>