perlでやるとなると、改行を跨いで複数行にわたったコメントの
処理が少し面倒だな
ついでに

char *string = "文字列 /* コメントか */ ちんこ";
↑
こういうのはどうするんだろうか…