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