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