$s = 'alter'; $s =~ tr[this][flip]cd; print $s;; t