#!perl -0p
1while/^\*/m?/\*
/?s/^ +
//:s/ $//gm:s/^ //gm