$str = q{TTTTTTT};
$str =~ s/TTT/ttt/i;