1 2 3 4 5 6 7 8 9 10
#/usr/bin/env perl print '#define DOCSTRING "'; while(<>){ s|\"|\\"|g; s|\n|\\n\\\n|g; print; } print '"'."\n";