use XML::Simple; use Data::Dumper; use strict; my $data = do {local $/; }; my $ref = XMLin("$data"); print Dumper($ref); __DATA__ ...more xml 1... ...more xml 2... ...more xml 3...