a Perl script for manipulating trees after phylogenetic reconstruction