$a=($a<length?length:$a)for split(/[^…]/,<>);
print$a/3