Select Code to Download

use Data::Dumper;
$Data::Dumper::Useqq = 1;
...
    print Dumper $row;
  }
}

$VAR1 = [
          "\n\t\tACME Communications, Inc.\n\t\t\n\t",
...
          "\n\n\t\n\t\t\240\n\t\t\n\t\t\n\t\n\n\t"
        ];
...

foreach (@$row) {
  tr{ \t\n\xA0}{ }s;
  s{^\s+}{};
  s{\s+$}{};
}

#!/usr/bin/perl
use warnings;
...
    print join(',', @$row), "\n";
  }
}