$line =~ s/^(abc)\w+\s+\S+(?:,\s*\S+)*/$1/x;