Valeu! Obrigado ae pela ajuda. O seu script não apenas me ajudou nesse problema como também a entender mais de expressões regulares no Perl. As próximas modificações vou tentar implementar, qualquer coisa mando um email. Obrigado, Gabriel Rodrigues