#! /usr/local/bin/perl -w

use strict;            

open (FILE, $ARGV[0]) or die "unable to open file";

open (OUTFILE, ">$ARGV[1]");

my @array = <BLASTX>;
my $line;

split_file (@array);

sub split_file {

#   my $line = $_;
   chomp ($line);
#   my @array = @_;
   my (@array) = split(/\s+/, $_);
   $array[8] =~ s/\%//g;
   return @array;
}