<div><div>Patty,<br><br>Outra alternativa seria modificar $/ para &quot;\n\n&quot; (não foi testado):<br>&lt;code&gt;<br>$/ = &quot;\n\n&quot;;<br>while ($_ = &lt;IN&gt;) {<br>&nbsp;&nbsp;&nbsp; next if /^-\s+TE/;<br></div>&nbsp;&nbsp;&nbsp; @elmts = split /\s+|\n/; # ou pode-se utilizar uma expressão regular mais complexa.
<br>&nbsp;&nbsp;&nbsp; @elmts = $_ =~ /^B2002\s+(?:PAI|MAE)1\s+ANO\s+NOME\s+PAI\s+20\s+FAILED\s+DATA\s+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ----\s+2\.04\s+%\s+NOME\s+PAI\s+FAILED-DATA\s+CHECK\s+\(\s+1\s+OF\s+10\)/x<br>}<br>&lt;/code&gt;<br><br>Como você não especificou o que você quer extrair, deixo por sua conta :)
<br><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>&nbsp;- TE SUMMARY FOR NOME PAI<br><br>&nbsp;B2002&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PAI1&nbsp;&nbsp;&nbsp; ANO NOME PAI&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 20 FAILED DATA
<br>&nbsp;---&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.04 % NOME PAI&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FAILED-DATA&nbsp; CHECK (&nbsp;&nbsp;&nbsp; 1 OF 10)<br><br>- TE SUMMARY FOR NOME MAE<br> <br> &nbsp;B2002&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MAE1&nbsp;&nbsp;&nbsp; ANO NOME MAE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 20 FAILED DATA<br>
 &nbsp;---&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1.04 % NOME MAE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FAILED-DATA&nbsp; CHECK (&nbsp;&nbsp;&nbsp; 1 OF 10)<br></div></blockquote></div><br>-- <br>Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a>