miscellaneous perl scripts that helped with TE annotation