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