Select Code to Download

Select or download this

    $main_template =~ s/%%keywords%%/$fields{'keywords'}/g;
    $main_template =~ s/%%searcresults%%/$pitem/g;
    
    $main_template =~ s/%%keywords%%/$fields{'keywords'}/g;
    $main_template =~ s/%%premiumlistings%%/$premiumitem/g;

Select or download this

  $_ = 'taxial';
  s/taxi/cab/g;
  s/cabal/gang/g;
  print;

Select or download this

  $_ = 'taxial';
  my %subst = ( 'taxi' => 'cab', 'cabal' => 'gang' );
...
  my $regexp = qr(@keys);
  s/($regexp)/$subst{$1}/g;
  print;

Select or download this

  $_ = 'taxial';
  my %subst = ( 'taxi' => 'cab', 'cabal' => 'gang' );
...
  my $regexp = presuf(keys %subst);
  s/($regexp)/$subst{$1}/g;
  print;

Select or download this

    my %subst = ( %fields, searcresults => $pitem, 
      premiumlistings => $premiumitem );
...
    my $regexp = presuf(keys %subst);
   
    $main_template =~ s/%%($regexp)%%/$subst{$1}/go;