

my $file = shift;

open IN, $file;
my @dat = <IN>;
close IN;

open OUT, ">$file.tmp";

foreach (@dat)
{
	next unless /^(\S+)\s+(.*)/;
	
   my $orc    = $1;
	my ($eng)  = split( /\t/, $2 );
	my $semis  = split ';', $eng;

   my @orc = ($orc) x $semis;
   
   $orc = join( '; ', @orc );
      
   print OUT<<EOENTRY;
/o $orc
/e $eng
/n SV

EOENTRY
}

close OUT;
   