or

$journal =~ s/(\)|\()//g;

"s" for replace
"\)" and "\(" for escaping the brackets
"|" for or
and the whole thing in "(..)" because you want to replace it with nothing "//"
"g" finally stands for global -> replacement doesnt stop when you hit the first bracket.