Select Code to Download

#!/usr/bin/perl 
#ENTERING A MOTIF TO BE SEARCHED FROM USER INPUT
...
        @words=();
}
print "\nThe number of patterns found in PIR database : $count\n";

ENTRY            CCHU       #type complete
TITLE            cytochrome c [validated] - human
...
ORGANISM         #formal_name Ateles sp. #common_name spider monkey
ACCESSIONS       A00004
GDVFKGKRIFIMKCSQCHTVEKGGKHKTGPNLHGLFGRKTGQASGFTYTEANKNKGIIWGEDTLMEYLEN
+PKKYIPGTKMIFVGIKKKEERADLIAYLKKATNE