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