#!/usr/bin/perl -w
                              
use strict;

my @result;
my $content = do { local $/ = undef; <DATA> };

$content =~ s/<\/h(\d)>/<\/h$1>\n/gi;

while ($content =~ /<h(\d)>(.*)<\/h\d>/gmi) {
    push( @result, "Level: ".$1.": ".$2);
}

foreach(@result){
  print $_."\n";
}

__DATA__

{{{%%TOC%%}}}

<h1>Test 1</H1> 

<p>Test</p>

<h2>Test 2</H2>

<p>Test 123</p>

<h2>Test 3</H2>

<p>Test</p>

<h1>Test 4</H1>

<p>Test</p> <h3>Test 5</H3> <h4>Test 6</H4>  

<h1>Test 7</H1>

<p>Test</p>