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