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