while (<$fh_i>) {
  if ($_ =~ ...) ...