Perhaps you should look into Inline::File.
In reply to Re^3: Parsing XML in a __DATA__ Block by bart in thread Parsing XML in a __DATA__ Block by loris