a href="..."の後にいろいろ増えてるのも壊れてますの原因みたいだから
target="_blank"も含めて全部削除するようにしてみた

html2dat()の$res_del_a変更と$res_del_a2追加
my $res_del_a = '<a(?:\sclass="image")?\shref=[^>]+>([^&][^<]*)</a>';
my $res_del_a2 = '(<a)(?:\s[_a-z][_a-z0-9]*="[^"]*")*(\shref="[^"]*")(?:\s[_a-z][_a-z0-9]*="[^"]*")*(>)';

$res_del_aの置換の下に$res_del_a2の置換を追加
$var{content} =~ s|$res_del_a|$1|g;
$var{content} =~ s|$res_del_a2|$1$2$3|g;

target="_blank"も消すので暫く壊れてます頻発するかもしれないけれど
その後は安定すると思う