Select Code to Download

# OK, users can write a variable name between {} brackets:
while ($text =~ m/{([^\}]*}/g ) {
  #do some interpolation
}

# hardcoded operation for routing:
my ($if_question, $if_answer, $then_question, $else_question) = get_ha
+rdcoded_logic();
...
else {
  set_next($else_question);
}