Eden so uma OBSERvacao no seu codigo!!<br><br>Se vc incluir + coisas a baixo do END ele tb pega!! vou tentar resolver!! e posto a msg :)<br><br>Abraços<br>Patty<br><br><b><i>Eden Cardim &lt;edencardim@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> #bem, o seguinte código funcionou comigo:<br>local $/;<br><br>my @registros = split (/\s*- TESTE\s*/, <DATA>);<br>shift @registros;<br>$registros[-1] =~ s/- END TEST$//;<br><br>for my $i (0..$#registros) {<br> print "Registro $i:\n$registros[$i]\n";<br>}<br><br>__DATA__<br>- TESTE<br><br>bla bla bla<br>bla<br><br>- TESTE<br><br>bla<br>bla<br>bla<br><br>- TESTE<br><br>bla bla bla<br><br>- END TEST<br>_______________________________________________<br>Cascavel-pm mailing
 list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></DATA></blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/