#!/usr/bin/perl
#FRG to FASTA

$/ = "acc:";
$| = 1;

while(<>){ #FRG file as input
   chomp;
   my ($titleline, $sequence) = split(/\n/,$_,2);
   next unless ($sequence && $titleline);
   my ($id) = $titleline =~ /^(\S+)/;
   $sequence =~ s/\n//g; 
   print ">$titleline\n$sequence\n";
        }