#!/usr/bin/env perl

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

$slurp =~ s/^###* [^\n]+//m;
print $slurp;

__DATA__

kjkjksjdf
## Don't del me
blah

## deleteme