perl -lane "s/[)(]//g for @F; print qq{@F[0,2..$#F-2,$#F]} unless /^\d/" input