You might be able to seek back to the start of the __DATA__ section. Something like (not tested)

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

I hope this is of use.

Cheers,

JohnGG