my $prefix = "__" . $self->{user} . "__";
   my $suffix = "__";
   my %hash;
   my $c =0;
   my @contexts = sort {length $b <=> length $a} @list;
   foreach my $context (@contexts) {
      if($var_val =~s/($context?)/\@\@$c\@\@/g) {
         $hash{$c} = "$prefix$1$suffix";
         $c++;
      }
   }
   foreach my $key (keys %hash) {
      $var_val =~s/\@\@$key\@\@/$hash{$key}/g;
   }