#! /usr/bin/perl -w

#=================================
#Script to remove gap characters from fasta files
#briandotoakleyatarsdotusdadotgov
#k.purdy at warwick.ac dot uk
#=================================

#---define input file----
$usage = "\n\nUsage:  $0 filename\n\n";
my $input_file = $ARGV[0] or die $usage;

#----Process----
while (<>) {
    
    if ($_ !~ m/^>/) {
    s/-|\.//g;
    print;
    }

    else {
    print;
    }

}