#!/usr/bin/perl

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

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);
  print TMP ("$line\n");
 }
# print TMP ("sil\n");
 close (FILE);
 close (TMP);
