#!/usr/bin/perl -w
use strict;
use 5.014;
my $data;

while (<>){      # all string to one variable
    $data .= $_;
}


$data =~ s/^ .*? ^ (Proxy Id .*) ^ Total .*/$1/xms;   # delete the garbage at the start and end the "file"
$data =~ s/^ (MO .*) \n =+/$1/gmx;            # delete middle separater "===========+"

my @MO = split /(?: =====+ \n)/x, $data;      # create an array of MOs

my @UtranCells;
foreach (@MO){                   # create an array of UtranCells
    if (/^ MO .* ,UtranCell= \d+ $/mx) {
        push @UtranCells, $_;
    }
}

foreach (@UtranCells){
    my ($replace, $target);
    while ($_ =~ /
        ^ Struct \s (\w+) \s has \s \d+ \s members: $
        (?{ undef $replace})
        (?{ undef $target})
        \n
        (?: \s >>> \s \d+ \. (\S+) \s = \s (.*)
        (?{ $replace .= "$1.$2 $3\n"})
        \n ) +
        (?{ $target = $&})
#        (?{ print $target})
#        (?{ print $replace})
        /gmx){
            $_ =~ s/\Q$target\E/$replace/;
        }
}

    my ($replace, $target);
    while (/
        ^ Struct \s (\w+) \s has \s \d+ \s members: $
        (?{ undef $replace})
        (?{ undef $target})
        \n
        (?: \s >>> \s \d+ \. (\S+) \s = \s (.*)
        (?{ $replace .= "$1.$2 $3\n"})
        \n ) +
        (?{ $target = $&})
#        (?{ print $target})
#        (?{ print $replace})
        /gmx){
            $_ =~ s/\Q$target\E/$replace/;
        }