Select Code to Download

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

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