Select Code to Download

my %handler = (
    HEADER => sub { ... },
    TITLE  => sub { ... },
...
    }
    $text .= " " . $curr_text;
}

my %record;

my %handler = (
...
    TITLE => sub { $record{TITLE} = $_[1] unless exists $record{TITLE}
+ },
    # ...
);

my $curr_rec = 0;
my @record;

...
    },
    # ...
);