my $s = $text->Contents();
$s =~ tr/ACGT/acgt/;
$text->Contents($s);