If you can't find anything in the docs or the code, then I'd say that you're justified in whacking it with a Perl clue-by-four. :)

my $stuff = do { local $/; <DATA> };
$stuff =~ s/^.*?\n\n//s;
print $stuff;
[download]

-- 
Human history becomes more and more a race between education and catastrophe. -- HG Wells