guiseq at [b8a37b9b5b]
File help/guiseq artifact 3190fe5d6b part of check-in b8a37b9b5b
#!/usr/bin/perl -p s{(<gui>)?(\w.+( > \w.+)+)(</gui>)?}{<guiseq><gui>$2</gui></guiseq>}im; s{(\w.+?) > (\w.+?)}{$1</gui> <gui>$2}img; s{(\w.+?) > (\w.+?)}{$1</gui> <gui>$2}img;