#!/usr/bin/perl

use strict;

while (<DATA>) {
    if ( /^{FRG/ ... /^}/ ) {
        print ">$1\n" if /^acc:(\d+)/;
        if ( /^seq:/ ... /^\./ ) {
            next if ( /^seq:/ or /^\./ );
            print;
        }
    }
}