#!/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]."\n";
	}
	elsif($line =~ m/==*/){
		print SEG ($line)."\n";
	}
}
close(SEG);