my $filename = "filename";
open my $file, '<', $filename;
@fileinput=<$file>;
close($file);

foreach $line(@fileinput)
{
my $test=($line);
if($test=~s/\(|\)//g)
{ print $test;
}