my ($largest) = sort {
    length($b) <=> length($a)
} $document =~ m!~\s*([^~]+?)\s*~!g;

##</code><code>##

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