perl -pe'chomp; s/(d)/new($1)/; s/^/,/ if $.-1'

##</code><code>##

perl -pl54e's/(d)/new($1)/'