use Tie::DATA(':xml'); # predefined format

    foreach(keys %DATA)
    {
        print "$_ = $DATA{$_}\n";
    }

    __DATA__
    
    <foo>yadda yadda yadda...</foo>
    <bar>
        ee-aye ee-aye oh
    </bar>
    <baz>
        woof woof
    </baz>