#!/usr/bin/perl

# record where the __END__ starts
my $pos = tell(DATA);

# do stuff with it
while(<DATA>) {
        print ;
}

# seek back to the top
seek(DATA,$pos,0);

# do some more stuff with it.
while(<DATA>) {
        print ;
}

__END__
some text
some more text
yet some more text

##</code><code>##

my @data = <DATA>;
foreach (@data) {
	print;
}
foreach (@data) {
	print;
}