ok Adriano :)<br>Perfeito.. <br>Obrigada<br><br><b><i>Adriano Ferreira &lt;a.r.ferreira@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> On 7/18/06, Patty Silva <ptfzs@yahoo.com.br> wrote:<br>&gt; Pessoal.. preciso de ajuda em uma expressao regular:<br>&gt; preciso recuperar somente os ultimos 4 digitos do arquivo:<br>&gt;<br>&gt; $file=teste_A1202012.TXT<br><br>tente<br><br>   $file =~ /(\d{4})\.TXT$/;<br>   print "os ultimos 4 digitos: $1\n";<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></ptfzs@yahoo.com.br></blockquote><br><p>&#32;
                <hr size=1> 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/">Registre seu aparelho agora!</a>