Here's my first japh for you fine folks:

perl -we'($_=q.q$;QH%hD(&krCWw)F+rc71(7aR([)7(>3vR(U=xO{)5;tk~($^$
_.)=>s{\(([^)]+)\)([^(]+)\(}{$1&$+}eg=>print~(q&$&&~q$&$)x25&eval'
[download]

--sean