<13>Nov 15 21:26:00 OamCOMM[365626]:
TIMESTAMP=Thu Nov 15 21:26:00 2018

MSGCLS=OAMOPE
Title=OAM Create OPERATION
Severity=Inform
message={username:xxxxxxxx@xxxxxxxxxxxxxxxxxxx;
 causeDISTINGUISH_NAME=label=x,label=x,;label=x,label=xxxxxxxxxxxxxxx,label=x,label=xxxx
USER_LABEL=
******************* parameters after change =*******************
label=xxxxxxxxxxxxx
label=xxxxxxxxxxxxxxxxxxxxxxx
label=xxxxxxxxxxxxxxxxxxxxxxxxxxxx
label=sxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
label=xxxxxxxxxxxx
******************* xxxxxxxxxxxx =*******************
label=x
}
Message Id=xxxxxxxx

##</code><code>##

#!/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $mlsf = "t.txt";
my @res;

open IN, "<", $mlsf or die "IN: $!\n";

while (my $mls = <IN>) {
        @res = $mls =~ m/^.*message=(.*?)Message Id.*$/gs;
}

print Dumper (\@res);

##</code><code>##

$VAR1 = [];