my ($largest) = sort {
    length($b) <=> length($a)
} split(/~/, $document);