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