:
eval 'exec perl -w -S `echo $0 | sed "s/.*\///" ` ${1+"$@"}' 
    if 0;
@a=@ARGV; @flags=grep(/^-/,@a); @files=grep(-f,@a); @ARGV=@files; @other=(); 
@other=grep(!-d,grep(!-f,grep(!/^-/,@a))); @dirs=(); @dirs=grep(-d,@a); 
# if (@dirs){push (@ARGV,&lsfiles(@dirs));}
if ( grep( /^-h(elp)?$/,@flags) or ( ! @a and eof(ARGV) and eof(STDIN) ) ) {
 	$scriptName = $0; $scriptName =~ s%^.*/%%;
	print <<"END";
Usage: $scriptName [-h -help] [ <file | file1 file2...] 
Convert a chunk of text into a java string that
you can paste into code.  Reads from stdin or a file
and writes to stdout.
END
exit;}

while (defined($line=<>)) { 
	chomp $line; chomp $line;
$line =~ s/\\/\\\\/g;
$line =~ s/"/\\"/g;
print <<"EOF";
   \"$line\\n\"+
EOF
}
print "   \"\"\n";