in reply to Re^2: remove specific data from a line
in thread remove specific data from a line

I forgot to substitute the first word back in. 
$line =~ s/^(abc)\w+\s+\S+(?:,\s*\S+)*/$1/x;

[download]
should give you what you want. You were right about the missing slash.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom