my ($frg) = @ARGV;
$frgfile = "$frg";
open(frgfile) or die("Unable to open FRG file");

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