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/^s}$/<\/code>/; # Fix monospace/code text s///g; s/(.*?)/$1/g; # Fix headers s/^= (.*) =$/====== $1 ======/g; s/^== (.*) ==$/===== $1 =====/g; s/^=== (.*) ===$/==== $1 ====/g; print;