9 Joe A 3 Larry W 7 Perl L ##

##

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

if ($@) {
  print $@;
} else {
    
}

##