#!perl -lp
s/\bd /$'
/g;s;^d ;