Canvi.pl

#!/usr/bin/perl

use strict;

while (<STDIN>) {

if ($_ =~ /^>/){

print $_;

}

else {

$_ =~ s/U/X/g;

print $_;

}

}