##
#!/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\;
print IN "$_";
}
close IN;
close A;
exit;