#!/usr/bin/perl

while (<DATA>) { print }

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