sh-prompt $ perl -MText::Wrap='wrap,$columns' \
   -MText::Textile=textile \
   -lp000we \
   'INIT{$columns=78} s{\cM?\cJ} [ ]g;
    $_=wrap(q[],q[   ],textile($_)).$\;' DRAFT.TMP