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