Shell Programming and Scripting

perl -ne 'print "$1 $2\n" if /(\w+)\s(?:.*)\((.*)\);$/' inputfile

-n is similar to while loop without printing the lines
while (<>) {
# do something
}

-e - perl code written in command line

\w - matches word ie alphanumeric and underscore 
\s - matches whitespace or tab
(\w+) - used for grouping - $1 as a backreference
(?: ) - grouping but will not make backreference. Hence it will not be $2.
\( - matches literal (
(.*) - grouping ie matches any character - $2 as a backreference
\) - matches literal )

awk '{
n=split($NF,array,"[(.*]");
print $1" "array[n]}' check_column_bracket | awk -vs=");" 'gsub(s,X)'

ABC XYZ,DEF,GHI
XYZ ABC
BHI LHJ

ABC XYZ,DEF,GHI
XYZ ABC
BHI  OWE,RTY,LHJ

awk '{match($0,/\(.*\)/); check=substr($0,RSTART+1,RLENGTH-2); gsub(/[[:space:]]/,X,check); {print $1 OFS check}}'  file_name

ABC XYZ,DEF,GHI
XYZ ABC
BHI QWE,RTY,LHJ