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