in reply to I need a regExp to add spaces

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.

--
"This alcoholism thing, I think it's just clever propaganda produced by people who want you to buy more bottled water." -- pedestrianwolf

In Section Seekers of Perl Wisdom