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

##</code><code>##

$VAR1 = [
          'My Company',
          'Gavin',
          'Henry ',
          'ghenry@ghenry.co.uk',
          ' 1.00'
        ];
$VAR1 = [
          'My Company',
          'Gavin',
          'Henry ',
          'ghenry@ghenry.co.uk',
          ' 1.00'
        ];

##</code><code>##

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