elsif ($text =~         # $GENERATE
               s/
               \A\$GENERATE \s+
               (\d+) \s* - \s* (\d+) \s+
               (|\*|\@|\.|([-\w\$\d]+(\.[-\w\$\d]+)*\.?)) \s+
               ((IN|HESIOD|CHAOS) \s+)?
               (\w+) \s+
               ([-\w\$\d]+((\.[-\w\$\d]+)*)?\.) \s*$
               //mxi)
        {
            return undef if $2 < $1;
            my $rr_template = join(' ', $3, $7 || 'IN', $8, $9);
            for my $i (reverse $1 .. $2) {
                my $rr = $rr_template . "\n";
                $rr =~ s/\$/$i/g;
                substr($text, 0, 0) = $rr;
            }
        }