my $data = <<_DATA_;
== Example header 1

== a

f

== Header 2 example

==== sub header

a sub sub header :)

== Testing header item with some stuff in

[[fffsdfsdf]]
_DATA_

while ($data =~ /^\=\= (.+?)$/m) {
	print "FOO: $1 \n";
}