#!/usr/bin/env perl

my $slurp;
while (<DATA>) {
  $slurp .= $_;
}


##</code><code>##

my $slurp;
while (<DATA>) {
  last if eof && /^###* /;
  $slurp .= $_;
}