#!/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);