Select Code to Download

    if ( $name =~ /^\[/ && ! $val ) {

sub StageDirections {
    return "[ " . RandomElement( \@Names ) . " " . RandomElement( \@Ac
+tions ) . ". ]\n";
}

  my %stage_direction_delimiter = (
      left  => '[',
      right => ']'
  );