use strict; use XML::Validate::Xerces; sub main { my $rsep = $/; undef $/; my $xml = ; $/ = $rsep; warn "working on this xml:[\n$xml]"; my %options; my $validator = new XML::Validate::Xerces(%options); my $valid = $validator->validate($xml) ? '' : 'in'; warn "Document is ${valid}valid\n"; } main(); __DATA__ Tove Jani Reminder Don't forget me this weekend!