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