perl script to get GPS genes