1#!/usr/bin/perl
2
3open (List, "gmarshal.list");
4
5while (<List>) {
6    next unless /^[A-Z]/;
7    s/^/"g_cclosure_marshal_/; s/:/__/; s/,/_/g; s/$/",/;
8    print;
9}
10