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

##</code><code>##

my $ref = XMLin(\*DATA);