#!/usr/bin/env perl -p
s,<h1>,= ,g;
s,</h1>, =,g;
s,<h2>,== ,g;
s,</h2>, ==,g;
s,<pre>,{{{,g;
s,</pre>,}}},g;
s,<code>,{{{,g;
s,</code>,}}},g;
s,</?i>,'',g;
s,</?b>,''',g;
s,</?strong>,''',g;
s,\[\[(.*?)\]\],["$1"],g;
s,^(\**)\*," " . (" " x length($1)) . "*",e;
if (s,^: (.*),,) {
	$defining = $1;
}
s,^:: (.*), ${defining}:: $1,;