$ perl -E 'say +("X(a,b,c)" =~ /X(\([^)]+\))/)[0]'
(a,b,c)