regex - perl regex - 関数定義の引数を抽出する

Question

eErrorT ChainCtrlExit (ChainCtrlT * pChainCtrl)
ChanT* ChainCtrlGetBitStreamChan (ChainCtrlT * pChainCtrl, 
char * name 
)
eErrorT ChainCtrlInit (ChainCtrlT * pChainCtrl, 
char * name, 
int instance, 
void * pOwner 
)

int SymContDecNamesCount = (sizeof(SymContDecNames)/sizeof(SymContDecNames[0]))
char* SymContEncNames[]
int SymContEncNamesCount = (sizeof(SymContEncNames)/sizeof(SymContEncNames[0]))

I want to extarct only function arguments ...that is 

OUTPUT I NEED 関数定義の引数のみを 1 行で抽出する必要があります

 ChainCtrlT * pChainCtrl
 ChainCtrlT * pChainCtrl, char * name 
 ChainCtrlT * pChainCtrl, char * name, int instance, void * pOwner  

マイコード

open(FILE, "< functions2.txt") or die $!;
open(FILE1, "> functions3.txt") or die $!;            

my @Array1=<FILE>;
foreach my $text (@Array1){
   $text =~ /\((.+)\)/;
   print FILE1 $text;
 }

しかし、すべてを新しいファイルに抽出しています。基本的にファイル内容の複製