1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5use bytes;
6
7while (<>) {
8
9    s{\s\[ ( [^\[\s]+ ) \]\s }{" `[`$1`]` "}gixe;
10
11    s{ \[\[ ( [^\]\|]+ ) \| ([^\]]*) \]\] }{"[$1 $2]"}gixe;
12
13    s{'''(.*?)'''}{"`$1`"}ge;
14    s{''(.*?)''}{"_$1_"}ge;
15
16    s{^\s*<[^/>]+>\s*$}{\{\{\{\n};
17    s{^\s*</[^/]+>\s*$}{\}\}\}};
18
19    if (/^\s*$/) {
20        print "\n";
21        next;
22    }
23
24    s{^\*}{ \*};
25    s{^\#}{ \#};
26
27    print $_;
28}
29
30