$tmpl =~ s/@~(.*?)~@/$hash{$1}/g;

##</code><code>##

$tmpl =~ s/@~(.*?)~@/
    defined $hash{$1} ? $hash{$1}
  :                     croak("@~$1~@ not defined")
  /ge;