#!/usr/bin/perl

my ($temp, $line, $m, $new);
$m = "fulllist"; 
$temp = "triphones1";
$new = "new";

 unless (open(FILE, "$m")) {
   die ("can't open fulllist");
 }

 open (NEW, ">$new")  || die ("Unable to open new file for writing");

 while ($line = <FILE>) {
  chop ($line);
  print NEW ("$line\n");
 }
 close (FILE);

 unless (open(FILE, "$temp")) {
   die ("can't open triphones");
 }
 while ($line = <FILE>) {
  chop ($line);
  if ($line =~ /sil/) {
  }
  else {
   print NEW ("$line\n");
  }
 }

 close (FILE);
 close (TMP);
