#!perl -pl
s|(d )*|"$'
"x("@+"/2)|e