#!/usr/bin/perl -w

# ux.pl lets change all U, @, # and % icones to an "X" simbol.

use strict;

my @v;
my $s;
my $length;
my $name;

open BLAST, " < $ARGV[0]";
open EXIT, "> $ARGV[0].x.fa";

print "$ARGV[0]\n";

open (BLAST, "< $ARGV[0]");
while (<BLAST>) {
    @v = split (//, $_);
    $length = scalar (@v);
    $s= 0;
    if ($_ =~ m/^[^\>]/){
     while ($s < $length) {
	if ($v[$s] eq 'U') {
	    $v[$s] = s/U/X/g;
 	}
	if ($v[$s] eq '@') {
	    $v[$s] = s/@/X/g;
	} 
	if ($v[$s] eq '#') {
	    $v[$s] = s/#/X/g;
	}
	if ($v[$s] eq '%') {
	    $v[$s] = s/%/X/g;
	}
	$s = $s + 1;
	   }
    }
  print EXIT "$_";

}
close BLAST;
close EXIT;