#!perl -p s/(f|\(((?1)| )+\))\(/($1 /&&redo