Thank to Andye,
last version which seems to work OK is:

$html =~ s/<a href="([^"]*)" group="([^"]*)">([^<]*)<\/a>/&change($1, 
+$2, $3)/isge;
[download]

For more tags or open usage is parser better way...

Li Tin O've Weedle
mad Tsort's philosopher