use strict;
use warnings;
use Email::Outlook::Message;

my @files = glob "C:/test_path/*";

foreach my $file (@files) {
  open   (FILE, "$file");
  while(my $line= <FILE> ){
    print "$file" if $line =~ /training/;
  }
  close FILE; 
} 

##</code><code>##

my $msg  = new Email::Outlook::Message $file;
my $mime = $msg->to_email_mime;
$mime->as_string;