#! /opt/gensoft/adm/bin/perl
use lib "/opt/gensoft/exe/amos/3.1.0/lib/perl5";
use lib "/opt/gensoft/exe/amos/3.1.0/lib";


use strict;
use AMOS::AmosLib;
use AMOS::ParseFasta;

my $parser = new AMOS::ParseFasta(\*STDIN, '#', '');

while (my ($head, $data) = $parser->getRecord()){

    if ($head =~ /^\#(\S+)/){
	my $name = $1;
	$data =~ s/-//g;
	printFastaSequence(\*STDOUT, $name, $data);
    }

}

exit(0);
