Title: Amateur Perl Scripts for Amateur Bioinformatics Research : Disease Motifs