txt-to-c.pl

$filename = shift;
$filename =~ qr{/([^/]*)$};
$symbol_name = $1;
$symbol_name =~ s/[^a-zA-Z_]/_/g;
print "char* sl__$symbol_name = ";
open FH, $filename;
while(<FH>) {
    s/\r?\n$//g;
    s/\\/\\\\/g;
    s/"/\\"/g;
    print "\"";
    print;
    print "\\n\"\n";
}
print ";\n";