if (/\G<([^<>]*)>/gc) {
                flush_name();
                $state = 'TEXT';
                print OUT $1;
                next;
            }

##</code><code>##

            if (/\G<[^<>]*>/gc) {
                flush_name();
                $state = 'TEXT';
                print OUT substr $_, $-[0] + 1, $+[0] - $-[0] - 1;
                substr $_, 0, $+[0], '';
                next;
            }