Hi, Try this the first sequence u will get u can write it to abc file

undef $/;
open(IN, "d:\\xyz.txt")    ||    die "Cannot open file\n";
$str = <IN>;
if ($str =~ m#(.*?)\n\n#gsi) {
    $a=$1;    
    
}

print $a;
[download]

o/p: GTM1_MOUSE GLUTATHIONE S-TRANSFERASE GT8.7 (EC 2.5.1.1 (217 aa) WFAGDKVTYVDFLAYDILDQYRMFEPKCLDAFPNLRDFLARFEGLKKISAYMKS-SRYIA TPIFSKMAHWSNK

Regards,
Gubendran.L