試しにsub html2dat()の$res_del_aを↓のように変えてみたけれどこれでいいのかな？

my $res_del_a = '<a(?:\sclass="image")?\shref=[^>]+>([^&][^<]*)</a>';

少しだけ使った感じでは問題なさそう