Perl Scripts for Bioinformation