I want to delete the last line of a file but only if it begins with ##

#!/usr/bin/env perl

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

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