<p>Ta, então pq não:</p>
<p>$result = sub {my $prim = shift; my $seg = shift; return $prim == 5 and $seg eq "LER"};</p>
<p>if($result->($1, $2)) {...}</p>
<p><blockquote type="cite">On Sep 9, 2010 10:49 AM, "Patty Silva" <<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>> wrote:<br><br><div><div style="font-family:times new roman,new york,times,serif;font-size:12pt">
<div>Nelson,<br>Eu frequento essa lista... mas infelizmente não tenho tempo de ficar acompanhando. É uma pena. Pq é uma excelente lista!!<br>Parei de programar em Perl e agora q estou retornando!! Não sou uma fera em perl e não sei muita coisa. As vezes me aventuro!! E por isso das dúvidas bobas..<br>
:-/<br><br><br></div><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><br><div style="font-family:arial,helvetica,sans-serif;font-size:12pt"><font size="2" face="Tahoma"><hr size="1"><b><span style="font-weight:bold">De:</span></b> Nelson Ferraz <<a href="mailto:nferraz@gmail.com" target="_blank">nferraz@gmail.com</a>><p>
<font color="#500050"><br>Para: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>></font></p><p><font color="#500050">Enviadas: Quinta-feira, 9 de Setembro de 2010 13:29:54<br>Assunto: Re: [Cascavel-pm] Res: Res: Duvida I...</font></p>
</font><p><font color="#500050"><br>2010/9/9 Patty Silva <<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>>:<br>> Não tem como usar 2 expressoes regulares??????<br><br>Patty,...</font></p></div></div>
</div><br>
</div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></p>