On 7/18/06, Patty Silva <ptfzs em yahoo.com.br> wrote: > Pessoal.. preciso de ajuda em uma expressao regular: > preciso recuperar somente os ultimos 4 digitos do arquivo: > > $file=teste_A1202012.TXT tente $file =~ /(\d{4})\.TXT$/; print "os ultimos 4 digitos: $1\n";