my @files = ( '(foo.txt)', '(bar.pl)', '(zoot.py)' ) ;
my @files_wo_parens = map { /\((.*?)\)/ } @files ;
print join ' : ', @files_wo_parens ;