style="vnd.ms-excel.numberformat:#,##0.00_)[semicolon](#,##0.00);" style="vnd.ms-excel.numberformat:$* #,##0.00_)[semicolon][Black]$* (#,##0.00);" #### style="vnd.ms-excel.numberformat:_(* #,##0.00_)[semicolon]_(* (#,##0.00)[semicolon]_(* "-"??_)[semicolon]_(@_)" #### # Format numbers style for download to Excel foreach my $c (qw(col_endow col_gfund col_restr col_total)) { if ( substr($key,0,3) eq "010" || substr($key,0,3) eq "023" || substr($key,0,3) eq "025" || substr($key,0,3) eq "027" || substr($key,0,3) eq "030" || substr($key,0,3) eq "043" || substr($key,0,3) eq "045" || substr($key,0,3) eq "066" || substr($key,0,3) eq "097" ) { $row_data{num_style} = 'style="vnd.ms-excel.numberformat:$* #,##0.00_)[semicolon][Black]$* (#,##0.00);"'; } else { $row_data{num_style} = 'style="vnd.ms-excel.numberformat:_(* #,##0.00_)[semicolon]_(* (#,##0.00)[semicolon]_(* "-"_)[semicolon]_(@_)"'; }