#!perl -nl
print;s;(/)\|(?!\\)|(?<!/)\|(\\);$+$+;g&&redo