printf sort{$b-$a}map y///c/3,<>=~/((…)+)/g