1#!/usr/bin/env perl
2
3use warnings;
4
5undef $/;
6open IN, "util/cpp_version decks.cc|" or die "Can't read decks.cc\n";
7$_ = <IN>;
8close IN;
9
10print "$_\n" for /CARD_[A-Z_]+: *return "([^"]+)";/g;
11