Region,Level 31.03.2016,,Sanction/Renewal
01.04.2016 to 28.02.2017,,,Level 28.02.2017,,Sanction/Renewal
During Current Month

         ,,,Level 26.03.2017,,Growth
as on
26.03.2017,

##</code><code>##

Sanction/Renewal
During Current Month

##</code><code>##

foreach my $ts ( $te->tables ) {
    print "Table (", join( ',', $ts->coords ), "):\n";
    foreach my $row ( $ts->rows ) {
       s/[\s\n]+\z/ for @$row; # <--- here
       # s/\n/ /gs for @$row; # uncomment if you want to convert
                              # multiline fields into single line
       $OUT-> print( join( ',', @$row ), "\n");
    }
}