#/usr/bin/env perl use File::Slurp; my $version = read_file('version.txt'); chomp($version); printf "#define DOCSTRING \"inetools %s\\\n\\n\\\n", $version; while(<>){ s|\"|\\"|g; s|\n|\\n\\\n|g; print; } print '"'."\n";