You wrote:

There is no sane way to do the equivalent of this in a map block.

@paragraph=
  map {
    if( /^#/ ) { () }
    else {
      # ... a dozen lines of code
      $_
    }
  } @lines;
[download]