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