my @lines = <DATA>;
if ($lines[-1] =~ /^##/) {
  pop @lines;
}
my $slurp = join '', @lines;