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