perl -we "$ARGV[0]=~tr[abf]()ds; print $ARGV[0]" aaabbcdeffgh   # prints cdegh