perl -MHTML::Entities -le '$s = "&Ouml;H &amp; HA&Igrave;"; _decode_entities($s, { amp => "&" }, 0); print $s'
-- 
&Ouml;H & HA&Igrave;