You could probably handle this during output with write.

format FOO =
@<<<<<<<<<<<
$Reserve_1
.

..in a nearby piece of code..

open(FOO, ">myfile");
select(FOO);
write;
[download]

You aren't limited to filehandles, you can even use STDOUT.