G'day, ait,

You may be interested in Perl Best Practices Chapter 4 - Here Documents (pp. 61-65). You've just reinvented the theredoc! Well done ++ :-)

As an adjunct to this, you may find Re: Use of Constants of interest.