Select Code to Download

my %alignment = (
  parts => [qw(lawful chaotic good evil neutral)],
...
  }
  return $result;
}

my %effects = (
  part => [qw(acid cold electricity fire)],
...
  $result =~ tr/_/ /;
  return $result;
}