<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -sw

use JSON;
use YAML;
use WikiText::ParseHeadings;

WikiText::ParseHeadings-&gt;reset();

while (&lt;&gt;) {
	WikiText::ParseHeadings-&gt;parse_line($_);
}

WikiText::ParseHeadings-&gt;finish_parse();
print Dump( WikiText::ParseHeadings-&gt;structure );
</pre></body></html>