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