perl -lpe'

##</code><code>##

BEGIN { $/ = "\n    " }

##</code><code>##

$\ = y/\n// ? $/ : $"'