perl -le'$_="2 (2) 2 (2) 2"; s/2(?!\)|\(.*?\))/two/g; print'