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