my ($first, $sort, $second, $tail) = split(/\s+/, $_);