perl -pe's/(d)/new($1)/; s/\n/, / unless eof'