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