cat  HP.annotation.gff  | perl -anle 'BEGIN{my $gene_id; my $gene_name} if (/\s+gene\s+/) { /ID=(.+?);/; $gene_id = $1; /Name=(.+?)$/; $gene_name = $1} print $_, ";Parentgene=$gene_id;Parentgenename=$gene_name"' > HP.annotation.named.gff