$quality =~ tr/[\!-\*][\+-4][5-\>][\?-\~]/0123/;

##</code><code>##

    tr/A-DF-H/1111222/;