Well, you asked for it.

Code:
perl -le 'print q^=uu~-+=5-^^q=^^^^^^^^^='