if ($line =~ /^%(.{1,100})$/){
 s/\s//g;
 
 $name = $1;
 print "EEEEEEEEEEEEEEEEEEEEEEEEEEEE: $name\n";
    }
    
    $outfile = "outfile['$name'].txt";
    open (OUTFILE, "+>>$outfile");