##
#!/usr/bin/perl -w
use strict;
use warnings;
my $file = "$ARGV[0]";
open IN, ">fixed_$file";
open A, $file;
my $replace = ();
while () {
if ($_ =~ /Hit_id/) {
next;
$replace =~ m/gi|.|/;
}
$_ =~ s/\>.\$replace\