Select Code to Download

my $regex = sub { qr/@_/ }->(
    join '|',
...
    sort { length $b <=> length $a }
    @values);
print "$regex\n";