$new_string = ( "good food" =~ tr/[od]/[ek]/; );