#!perl -p
$r=' (\((?1) (?1).|.).'x3while s;[^()]{2,}(?=\s);($&);||s;..\.$r;$1 ($2 $3))