Select Code to Download

   my $re = join '|', map quotemeta, sort {length $b <=> length $a || 
+$a cmp $b } @_;