Something like this would probably do for you:

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

_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche