my %fields = split(/\s+/, $line);