#!perl -p use bigint;s!\d+!(@{[($&/2||'').'()'x($&%2)]})!&&redo