#!/usr/bin/perl

while (<DATA>) { print }

__DATA__
set 1
...
__DATA__
set 2
...    

##</code><code>##

$ ./887252.pl
set 1
...
__DATA__
set 2
...