Re^2: This looks like whitespace in my CSV but doesn't seem to be

[ghenry]

That gives me:

[
  "My Company",
  "Gavin",
  "Henry\xC2\xA0",
  "ghenry\@ghenry.co.uk",
  "\xC2\xA1.00",
]

which isn't whitespace after all. Thanks for the Data::Dump tip. I've always used Data::Dumper. Swapping for that produces:

$VAR1 = [
          'My Company',
          'Gavin',
          'Henry ',
          '[e-mail]',
          ' 1.00'
        ];
$VAR1 = [
          'My Company',
          'Gavin',
          'Henry ',
          '[e-mail]',
          ' 1.00'
        ];

i.e.

        next unless $fields[4];
        print Dumper \@fields;
        $fields[4] =~ s/\s+//g;
        print Dumper \@fields;