[128-A-G-snp;147-CTGTCA-GAGTCC-complex 41.0]

##</code><code>##

$red,'[','128-A-G-snp;147-CTGTCA-GAGTCC-complex 41.0',$red,'] '

##</code><code>##

my$hyperlink_format = $workbook->add_format(
  color     => 'blue',
  underline => 1,
);
my$red=$workbook->add_format( color => 'red' );
my$row_cnt=@$rows;
my$col_cnt=@{$$rows[0]};
for (my$i=0;$i<$row_cnt;$i++){
  for (my$j=0;$j<$col_cnt;$j++){
    if (($j == 3) && ($i != 0)){
      $worksheet->write( $i, $j, $$rows[$i][$j] , $hyperlink_format, 'alignment' );
      print LOG "makeExcel: \$\$rows[$i][$j]\t$$rows[$i][$j]\n";
    }elsif((($j == 6)||($j == 8)||($j == 10)) && ($i != 0)){
      my@row=split "]",$$rows[$i][$j];
      my@row_markup=();
      for my$group (@row){
        if ($group=~/^\[(.+)/){
          push(@row_markup,"\$red,'[','$1',\$red,'] '");
        }
      }
      my$row_markup=join '',@row_markup;


      print LOG "\$worksheet->write_rich_string($i, $j, $row_markup)\n";


      $worksheet->write_rich_string($i, $j, $row_markup);
      #$worksheet->write_rich_string($i, $j, $red,'[','128-A-G-snp;147-CTGTCA-GAGTCC-complex 41.0',$red,']');


    }else{
      $worksheet->write( $i, $j, $$rows[$i][$j] );
    }
  }
}

##</code><code>##

$ grep write_rich_string log
$worksheet->write_rich_string(1, 6, $red,'[','1 100.0',$red,'] ')
$worksheet->write_rich_string(1, 8, $red,'[','147-CTGTCA-GAGTCC-complex 44.0',$red,'] ')
$worksheet->write_rich_string(1, 10, $red,'[','128-A-G-snp;147-CTGTCA-GAGTCC-complex 41.5',$red,'] ')