>perl -wMstrict -MData::Dump -le
"my $line =
   q{xxx:agent_id=>foo,yyy:agent_id=>b\"a\"r,zzz:agent_id=>\"baz\",qqq};
 ;;
 my @agents =
   map s{\x22}{}xmsgr,
   $line =~ m{ :agent_id=> \K  [^,]+ }xmsg;
 ;;
 dd \@agents;
"
["foo", "bar", "baz"]