$s = 'Ttthe Qqquiicccck brroooown fox'
$s =~ tr///cs
print $s
Tthe Qquick brown fox