Here is another $A++ on Perlmonks you forgot:
This one is aimed at using only characters between @ and DEL.
In reply to Re: still another $A++ by BooK in thread still another $A++ by stefp