Select Code to Download

use strict;
use warnings;
...
    print @$row;
    print Data::Dumper->Dump($row);
}

use strict;
use warnings;
...
    my ($x,$y,$z) = split /,/;
    print "x: $x\n";
}

x: ˙ūDARK01DGBBHF1D
x: DARK01JDM0HF1D
x: 191WA357Z1F811
x: 1952AF2-L3A3567
x:

use strict;
use warnings;
...
    print "x: $x\n";
}