$strvar =~ s/(text)/[tag]$1[\/tag]/ig;