$data =~ s/\[($_)]$1<\/a>/g;