A custom perl script to gather ortholous