...
my $startPos = tell(DATA);
...
# Filter processing here
...
# And later
seek(DATA, $startPos, 0);
...