my $string = do { local $/; <DATA>};
my $ref = XMLin($string);