#!/usr/bin/perl 
  
  if($#ARGV != 0){
  	print("usage : cat <texte_lia_seg.seg> | ./toSegEmiss <fichierEmiss.seg>");
  	exit(1);
  }
  
  open(SEG, ">$ARGV[0]");
  while(<STDIN>){
  	$line = $_;
  	chomp($line);
  	if($line =~ m/#.*/){
  		@tempo = split(/#/, $line);
  		print SEG $tempo[1]."
  ";
  	}
  	elsif($line =~ m/==*/){
  		print SEG ($line)."
  ";
  	}
  }
  close(SEG);