$str =~ s#\[(.*?)\](.*?)(?=\[.*?\]|\n)#<div class="$1">$2</div>#ig;