Perl 6 also supports Str decrement with similar semantics, simply by running the cycles the other direction.
"Leftmost characters are never removed, and the decrement fails when you reach a string like``aaa""or``000""."