Select Code to Download

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

for (@data) {
    if ($_ =~ m/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/){
...
        $worksheet->write($row, $col++, $_, $format)
    }
}