You need to seek back to the beggining of the data section to re read it. You can use tell to find out where data begins, print it, then seek back, and print agian.

use strict;

my $start = tell(DATA);

print while (<DATA>);

seek DATA,$start,0;

print while (<DATA>);

__DATA__
Hello
[download]