Ola Fabiano.. essa solucao nao funcionou.. ele pega tudo do arquivo!!<br>:)<br><br><b><i>Fabiano Reese Righetti &lt;frighetti@cascavel.pm.org&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Patty Silva escreveu:<br>&gt; Eu ja tinha postado :) mas vai la!!<br>&gt; <br>&gt; while (<FILE>) <br>&gt; {<br>&gt;     local $/ = '\s - TESTE\n';<br>&gt;     print $_;<br>&gt;      <br>&gt; }<br><br>my $var   = '';<br>my %dados = ();<br>while (<FILE>)<br>{<br> if ($_ =~ /^- TESTE (\S+)/)<br> {<br>  $var = $1;<br>  $dados{$var} = [];<br> }<br> else<br> {<br>  push(@{$dados{$var}}, $_);<br> }<br>}<br><br>&gt; <br>&gt; No caso nao funcionou..<br>&gt; <br>&gt; eu quero pegar tudo que vem depois de - TESTE ou seja<br>&gt; meu arquivo<br>&gt; - TESTE VARIAVEL1<br>&gt; Joao 23 Minas Centro<br>&gt; Maria Sao Paulo<br>&gt; - TESTE VARIAVELT<br>&gt;   JOSE 32 <br>&gt; Roberto 34<br>&gt; - TESTE
 VARIAVELB<br>&gt; bla bla bla<br>&gt; <br>&gt; - END TESTE<br><br>    Peguei a conversa no final... mas espero que o código acima ajude!<br><br>Abraços,<br>--<br>Fabiano Reese Righetti<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></FILE></FILE></blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/