while ($post_message =~ /\[b\](.+?)\[\/b\]/sg) { 
		print "BOLD: $1 \n\n"; 
		$bold_length += length($1);
	}