1#!/usr/bin/env perl
2
3use warnings;
4
5undef $/;
6open IN, "util/cpp_version spl-data.h|" or die "Can't read spl-data.h\n";
7$_ = <IN>;
8close IN;
9
10for (/\{\s*SPELL_\w+,\s*"([^"\n"]+)"/sg)
11{
12    next if /^[a-z]/; # dummy spells start with lowercase
13    next if $_ eq "Random Effects"; # wand-only spell
14    print "$_\n";
15}
16