Select Code to Download

open (SIDX, "$data_dir/search.idx");
open (SIDX2, "$data_dir/search2.idx");

my @sidx = <SIDX>;
my @sidx2 = <SIDX2>;

(@skeyw) = split(/ /,$fields{'keywords'}); # SPLITTING SIDX FILE
(@premiumskeyw) = split(/ /,$fields{'keywords'}); ## SPLITTING SIDX2 F
+ILE

  my @keywords = split ' ', $fields{keywords};

$nrkeywords = push(@skeyw);
$premiumnrkeywords = push(@premiumskeyw);

  my $n_keywords = scalar @keywords;

  my $n_keywords = @keywords;

  my $regex = join '|', map { quotemeta $_ } @keywords;
  $regex = qr/$regex/;

  my @std_hits  = grep { m/$regex/ } <STD_IDX>;
  my @prem_hits = grep { m/$regex/ } <PREM_IDX>;