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