print {$filehandles[$i]} $line if ($line =~ /$regex[$i]/../^END/);