use strict;

my $pointer = tell DATA;

print get_data();

seek DATA,$pointer,0;
print get_data();

sub get_data { do {local $/;<DATA>} }