#!perl -0p s/^$/>/gm,s%^[^>](.| [^>])+%>/* $& */%gm,s/^/ /gm,s/^ *>//gm