$html =~ s/<a href="(.*?)" group="(.*?)">(.*?)</a>/&change($1, $2, $3)/isge;
must be
$html =~ s/<a href="(.*?)" group="(.*?)">(.*?)<\/a>/&change($1, $2, $3)/isge;

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------