my $xml = $response->content;
if ($xml =~ /^</) {
  print "Looks like it could be xml/html\n";
  # Parse xml here
} else {
  die "Bad content:\n$xml\n";
}