$text =~ s/\[([a-zA-Z]+)\](.*)\[\/$1\]/replace(...)/gex;