On 5/9/07, Leonardo Costa <leocostabh em gmail.com> wrote: > Como eu edito todos os arquivos para tirar essa data do final? use File::Rename qw(rename); rename <*>, sub { s/\d{6,8}$// }; # untested Aprendar o poder da CPAN caso queira usar Perl de verdade. -Nilson Santos F. Jr.