#!/usr/bin/perl -w
use strict;
use warnings;

my $file = "$ARGV[0]";

open IN, ">fixed_$file";

open A, $file;

my $replace = ();

while (<A>)     {
        if ($_ =~ /Hit_id/)   {
                next;
                $replace =~ m/gi|.|/;
        }
        $_ =~ s/\>.\</\>$replace\</;
        print IN "$_";
}

close IN;
close A;
exit;