$parsed = eval {XMLin($data)};

if ($@) {
  print $@;
} else {
    <NEED SORTING CODE HERE>
}