Select Code to Download

use strict;
use warnings;
...
    #return sort {length $b <=> length $a} split / ?\n+/, $result; #so
+rted by length
}

sub all{
    my @seq1 = split / +/, $_[0];
...
    return sort {length $b <=> length $a} split / {2,}/, join ' ', @re
+sult; #sorted by length
}