#! /usr/bin/perl;
use strict;
use warnings;
use autodie; # errors from open made fatal

sub DEBUG { 1 }

my $filelist = 'tmp.txt';
open my $filelist_handle, '<', $filelist;
while (<$filelist_handle>) {
    chomp;
    my ($type, $school) = m!
      ^                 # anchor to beginning
      /home/test/       # common to all lines
      (\w{3})           # capture 'type'
      /\.date_[^.]+     # common to all lines
      (?:               # non-capturing group
        .+?(\w+)\.\w+$  # capture domain name?
        |               # or don't capture
      )                 # end group
    !x # /x flag means ignore white space in pattern
    or next; # skip line if it doesn't match
    
    # do extra check that $school is acceptable
    $school //= 'null'; # regex gives undef if not found
	
	if (DEBUG) {
		print "match: $_\n";
		print "\ttype: $type\n";
		print "\tschool: $school\n";
	} else {
		open my $line_handle, '<', $_;
		while (<$line_handle>) {
			print "Type:$type:School:$school:File:$_\n";
		}
	}
}