###$quality =~ tr /[!"#$%&'()*][+,-./01234][56789:;<=>][?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~]/0123/; ###$quality =~ tr /[\!-\*][\+-4][5-\>][\?-\~]/0123/; ###$quality =~ tr/[\x21-\x2a][\x2b-4][5-\x3e][\x3f-\x78]/0123/; ###$quality =~ tr/[\x21-\x2a][\x2b-\x34][\x35-\x3e][\x3f-\x78]/0123/; ###$quality =~ tr/[\!-\*][\+-4][5-\>][\?-\~]/0123/;