use strict;
use warnings;

my $frgFile = q{spw768164.frg};
open my $frgFH, q{<}, $frgFile or die qq{open: < $frgFile: $!\n};

my $inFRG = 0;
my $inSeq = 0;

while( <$frgFH> )
{
    if( $inFRG )
    {
        if( m|^\}| )
        {
            $inFRG = 0;
        }
        elsif( $inSeq )
        {
            if( m{^\.} )
            {
                $inSeq = 0;
            }
            else
            {
                print;
            }
        }
        elsif( m{^acc:(\d+)} )
        {
            print qq{>$1\n};
        }
        elsif( m{^seq:} )
        {
            $inSeq = 1;
        }
        else
        {
            ;
        }
    }
    else
    {
        next unless m|^\{FRG|;
        $inFRG = 1;
    }
}

close $frgFH or die qq{close: < $frgFile: $!\n};

##</code><code>##

>1101077781160
acaaggctggagtatttttttgtttagtaatttatttaattcagtttttatattttcataaactttttta
ggatcaccagggccattacttaaaaaaaaaccatcaaaatttctattaattatatcctcagcattaaaat
tgatctttagagagaaacttacctttgaaaatatattttttgttataaattaaatatccgttttgataat
taagtttagttttattatctaatacgggcatattaaatcatgtgtattagtatattatatcaaaggaaat
tcaaatgagtttggcaaaaaaatttctgatgacgttaaagtgctttaaaaggcggagatagaaaaacttt
catagcaaggtatgtctattctgagttaaaaattttctattaaagaaatctagagagagacgtgcttaat
tatctgacga
>1101077781161
gcgtgacgtttgagcagaagaattatttattaatttctgaggattttaagtctttaaaacaaaacgtttc
attcaaatttcaaaatcttgattataaagaagcgatggcactaatggctgagattggcaatattaatata
caactggctcagcagtattaaaaattgaactagatgcgttggaatctcaagggttaggaagaacagtttc
taatccaaattgtttaccctagacaatcaaactgccagtattaaac