Select Code to Download

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

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

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