my $id;
while (<>) {
    if (/^====EDO=(\w+)=====$/) {
        $id = $1;
    }

    print;

    if (/^UNIX Page:/ && defined($id)) {
        print("\nComment ", fetch_comment($id), "\n");
    }
}
[download]

where fetch_comment fetches the appropriate comment from the database.