sub binhyphen3
{
  my ($str,$sep) = @_;
  my @lst=();
  my @ret=();
  map{push(@lst,$_); push(@lst,''); }split(/$sep/,$str);
  pop(@lst);
  my $lang=@lst;
  my $i=1;
  while($i<$lang)
  {
   for($i=1; $i<$lang; $i+=2)
   {
    if($lst[$i] eq '')
    {
     $lst[$i]=$sep;
     last;
    }
    $lst[$i]='';
   }
   push(@ret,join('',@lst));
  }
  return @ret;
}