docs: |
    Implemented, against my better judgement. It's trivial, like so many of
    the others.

requirements:
    List::Util: 1.13

code: |
    sub str_shuffle
    {
        require List::Util;
        my ( $string ) = validate_pos( @_, STRING );

        return join '', List::Util::shuffle split //, $string;
    }