BEGIN { $readblank = 0; }

$readblank = 1 if /^$/;

# Fix line-endings for Unix
# $//;

# Ignore all pragmas
next if !$readblank and /^#/;

# Fix different a href linking styles
s/\[(http:\S+)\s+(.*?)]/[\[$1|$2\]]/g;

# Fix lists that aren't indented enough
s/^ \*/  \*/;

# Fix ordered lists
s/^(\s+)\d+\./$1-/;

# Fix code blocks
s/^{{{$/<code>/;
s/^}}}$/<\/code>/;

# Fix monospace/code text
s/''/''/g;
s/''(.*?)''/''$1''/g;

# Fix headers
s/^= (.*) =$/====== $1 ======/g;
s/^== (.*) ==$/===== $1 =====/g;
s/^=== (.*) ===$/==== $1 ====/g;

print;