Grazie Mich ma già avevo provato ma non capisco perchè non mi funziona...ho provato con:

($c =~ s/T/U/gs);

lasciando il resto tutto uguale ma purtroppo rimane tutto uguale?!