note
tybalt89
<code>
#!/usr/bin/perl
use strict; # https://perlmonks.org/?node_id=11119669
use warnings;
my $slurp;
while (<DATA>) {
$slurp .= $_;
}
$slurp =~ s/^##.*\n\z//m;
print $slurp;
__DATA__
kjkjksjdf
## Don't del me
blah
## deleteme
</code>
11119669
11119669