$text =~ s/\[([^\]]+)\]/<$1>/g;