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