#!/usr/bin/perl

my $EDO;
while (<DATA>) {
    ($EDO) = $_ =~ /=*EDO=(\w+)=*/ if /^=/;
    print;
    print "\nComment $EDO\n" if ( /^UNIX/ );
}


__DATA__
=====EDO=FED00123=====
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
UNIX Page: XX
=====EDO=FED00124=====
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
UNIX Page: XX