$value =~ s/T/A/;