my ($key, $value, $predicate) = (split /\s+/, $line)[0,3,7];