#!/usr/bin/perl

my ($temp, $line, $m);
$m = "monophones"; 
$temp = "monophones0";

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

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

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

  if ($line =~ /sp/) {}
#  {
#   print ("aaaaaaa\n");
#  }
  else
  {
   print TMP ("$line\n");
  }
 }
# print TMP ("sil\n");
 close (FILE);
 close (TMP);
