abcefgh qwerty, asdfg yuio jklh

##</code><code>##

asdfg yuio jklh

##</code><code>##

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