Um simples anti-spam em um arquivo perl