sub substitute_ac_subst_variables
{
  my ($text) = @_;
  $text =~ s/\${([^ \t=:+{}]+)}/substitute_ac_subst_variables_worker ($1)/ge;
  return $text;
}