my @headers;
	while ($post->{post_message} =~ m|\=\=([a-z0-9_ &\[\]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z?!;«»()"\s]+)\=\=|g) {

		my $section = get_section_code($1,$post->{post_message});
		
		my @subheaders;	
		while ($section =~ m|^\=\=\=([a-z0-9_ &\[\]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z?!;«»()"\s\-]+)\=\=\=|g) {
			push @subheaders, $1;
		}

		push @headers, { Section => $1, SubLoop => \@subheaders }, 
		
	}

##</code><code>##

 
==Introduction==
sdfsfsdfsdf

dfgdgdg

===sub header===

[[testing]]

====sub-sub header====

bla bla

===sub header===

[[testing]]

sub-sub header

bla bla

==Brief History==
sdfsdfsdfsdf

[[testing]] [[testing]]
==Geography==

little edit here
==Regions==
==Cities==
==Sights and Activites==
==Weather==
==Getting There==
==END Getting There==