%ifac= (
14.152 => "JCI",
9.334 => "JHEP",
5.745 => "JIMM",
6.270 => "JID",
1.480 => "JRN",
6.105 => "KI"
);

open (FH, "<test.txt");

my $zler=0;
while(defined(my $title=<FH>)) {
  if ($title=~m|.{10,}\(IF ([\.\d]+)\)|) {
    $id=$zler;
    $factor=$1;
    $jour=$ifac{$factor};
    print "INSERT INTO table (id, key, value) VALUES ($id,'ifac','$jour');\n";
  }
  $zler++;
}

close(FH);