Help for this page

Select Code to Download


  1. or download this
    my ($largest) = sort {
        length($b) <=> length($a)
    } $document =~ m!~\s*([^~]+?)\s*~!g;
    
  2. or download this
    my ($largest) = sort {
        length($b) <=> length($a)
    } split(/~/, $document);