#!/usr/bin/perl -w

#$seq = "TTTTAATTAAACGTAAAAAGGCAGG";
#$seq = "tcaccttcgacgacgcttagagcagatagacgat";
$seq = <STDIN>;
chomp($seq);

print "$seq \n";
# non valide s'il y a au moins une lettre autre que ATGCatgc
if ($seq =~ /[^ATGC]/i) {
    print "sequence non valide\n";
} else {
    $seq =~ s/T/U/g;
    $seq =~ s/t/u/g;
# ou :
#    $seq =~ tr/tT/uU/;
    print "$seq \n";
}
