@EXPORT= qw(                       
    XML_FOO
    XML_BAR
);  


use constant XML_FOO => <<FOO;
#XML CODE HERE
FOO 

use constant XML_BAR => <<BAR;
#XML CODE HERE
BAR

# and so on...

# Later in the implementation:

$parser->parse_string(XML_FOO);