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