$line =~ s/-=(A)([][]?)(B)([][]?)/<b>$1$2$3<\/b>$4/g;