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