Select Code to Download

{
    local $/ = 'Query= ';
...
        print "$1\t$2" if / \A (\S+) .*? ^ > (\S+) /msx;
    }
}

#!/usr/bin/env perl -l

...
          Length = 364
...

sp|P30443|1A01_HUMAN    tr|G1KTN1|G1KTN1_ANOCA
Xsp|P30443|1A01_HUMAN   Xtr|G1KTN1|G1KTN1_ANOCA