Select Code to Download

my $prefix = "__" . $self->{user} . "__";
   my $suffix = "__";
...
   foreach my $key (keys %hash) {
      $var_val =~s/\@\@$key\@\@/$hash{$key}/g;
   }