#!/usr/bin/perl -p

s/\x0D$//;

unless (/^\@/ or /^\/\//) {

    s/(?<=[^\\])\[/\\\n\[/g;
    s/(?<!\\)\](?=[^\\\n])/\]\\\n/g;
}
