+foreach my $infile (@ARGV) {
+ open (INFILE, "< $infile") || die "$0: Cannot open $infile\n";
+
+ while (<INFILE>) {
+ $count++;
+ next if /^\s*($|#|!)/;
+ chomp;
+ $line = $_;
+ $line =~ s/"/~/g;
+ $line =~ s/@/\@\@64/g;
+ $line =~ s/\\/\@\@92/g;
+ print "$count:\treturn \"$line\";\n";
+ }