canviUperX.sh

#!/usr/bin/perl
use strict;

while (<STDIN>) {
        if ($_ =~ /^>/){
        print $_;
        }
        else {
                $_ =~ s/U/X/g;
                print $_;
        }
}