String durchsuchen & ersetzen

[Apfelbaum]

$txt =~ s/$$([A-Za-z0-9_-]+)$$/template_to_hash_replace($1)}/eg;

sub template_to_hash_replace{
  my $var = shift;
  if( exists $hash{$var} ){
    return $hash{$var};
  }
  else{
    return "TEMPLATE_ERROR(".$var.")");
  }
}

  
das ist echt super, vielen Dank. Falls ausser mir sonst noch wer den Code verwenden sollte und er nicht funktioniert, bei `s/\$\$([A-Za-z0-9_-]+)\$\$/template_to_hash_replace($1)}/eg;`{:.language-perl} ist die geschweifte Klammer am schluss zuviel.  
  
Ein letztes Problem habe ich noch:  
Wenn ein Value im Hash einen Backslah enthält wird der Value nur bis zu diesem Backslash ausgegeben. Hast du hierfür auch noch ne Lösung?