open (FH,"<uniprot_sprot.dat");
while (<FH>){
$c++;
#SQ   SEQUENCE   320 AA;  34642 MW;  9E110808B6E328E0 CRC64;
if (/^SQ   SEQUENCE(.+)AA\;(.+)MW\;/) {
print "$1\t$2\n";
last if $c > 1000;
}
}