my ($key, $value) = split /\s*-\s+/, $line;