$var =~ s/\(//;
$var =~ s/\)//;