use strict;
#use warnings;

my $file = '/home/test/FileList.txt';
open my $FILE, '<', $file or die "unable to open '$file' for reading: $!";
while (my $line = <$FILE>) {
    chomp($line);
    #if ($line =~ m#home/test/(\w{3}).*[.](\w+)[.].*#) {
    if ($line =~ m#home/test/(\w{3}).*[.](\w+)[.]?.*#) {
        #print "$line\n";  .last_file_sent*
        open my $file2, '<', $line or die "unable to open '$file' for reading: $!";
        while(my $line2 = <$file2>) {
        print "Type:$1:School:$2:File:$line2";
        #print "$line2";
        }
        close $file2;
    }
} #end while
close $FILE;