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

##</code><code>##

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

##</code><code>##

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