print @filehandles[$i] if (/@regex[$i]/../^END_OF_BLOCK/);