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