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

##</code><code>##

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