Renomeia vários arquivos usando expressões regulares Perl
