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