my %subst = ( %fields, searcresults => $pitem, 
      premiumlistings => $premiumitem );

    use Regex::PreSuf;
    my $regexp = presuf(keys %subst);
   
    $main_template =~ s/%%($regexp)%%/$subst{$1}/go;