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