#!/usr/bin/perl

my ($temp, $line, $m);
$temp = "temp";
 if (@ARGV != 1) {
  print "usage: $0 mlf promptlist\n\n"; 
  exit (0);
 }

 unless (open(FILE, "@ARGV[0]")) {
   die ("can't open @ARGV[0]");
 }

 open (TMP, ">$temp")  || die ("Unable to open tmp file for writing");

 while ($line = <FILE>) {
  chop ($line);

  if ($line =~ /"/) {
   $line =~ s/\"//i;
   $line = "\"*/" . $line;
  }
  print TMP ("$line\n");
 }
 close (FILE);
 close (TMP);
