$ perl -le'
$_ = "aabbccdddd";
print;
tr///cs;
print;
'
aabbccdddd
abcd