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