If you want to remove contiguous duplicates of literally every character, you don't have to specify any characters with tr///s, you just add the /c option.

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