1#!/usr/bin/env perl 2 3use warnings; 4 5undef $/; 6open IN, "util/cpp_version job-data.h|" or die "Can't read job-data.h\n"; 7$_ = <IN>; 8close IN; 9 10s|//.*$||gm; 11 12print "$_\n" for 13 /"..",\s*"([^"\n"]+)",/sgx; 14