$desc=~tr/$(*.?) {1,30}/???????/i;