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