Here's how to figure how Perl sees the incoming data:

use Data::Dumper;
$Data::Dumper::Useqq = 1;

...

print Dumper(\@row);
[download]

Paste some sample output from that and we can help you better. (Also, the ungarbled versions of the same content would help, too.)