File help/guiseq from the latest check-in

#!/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;