Select Code to Download

print {$filehandles[$i]} $line if $line =~ /$regex[$i]/;

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