else {
        # This slice should probably explained.
        print join '', @telealph{ split //, uc( $toto ) };
    }