Select Code to Download

#!/usr/bin/perl
use strict;
...
    }
    $row++;
}

for (@data) {
    chop;
...
        $worksheet->write($row, $col++, $_, $format)
    }
}

s/\0//g for @data;

y/\0// for @data;