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; 
}