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