my $cr = XMLin( do { local $/ ; } );