$parser =  XML::DOM::Parser->new();
eval {$ResponseDoc = $parser->parse ($feedcontent);};

if($@){
    xyz
}

#... hier dann die Verarbeitung wenn es soweit kommt