Canvi.pl
#!/usr/bin/perl
use strict;
while (<STDIN>) {
if ($_ =~ /^>/){
print $_;
}
else {
$_ =~ s/U/X/g;
print $_;
}
}
#!/usr/bin/perl
use strict;
while (<STDIN>) {
if ($_ =~ /^>/){
print $_;
}
else {
$_ =~ s/U/X/g;
print $_;
}
}