@lines =  grep {/^DE|^GN|^ID/} split ("\n", $_);
foreach $lines(@lines) {
    if ($lines =~ /^DE|^GN/ && $lines !~ /Putative uncharacterized protein/) {
        while ($lines) {
            $lines =~ s/.+?\=(.+?)\;//;
            print lc($1)."\n";
        }
    } elsif	($lines =~ /^ID/)	{
        print " \n";
    }
}