The ASCII85 encoding is a binary string encoding where every four bytes are encoded with five ASCII letters, using 85 different types of characters.
Unfortunately, it's not in $CharacterEncodings:
We can do this with python:
ascii85decode(b'9jqo^BlbD-BleB1DJ+*+F(f,q')
yields 'Man is distinguished', but how to do this in Mathematica?
Related:
