Select Code to Download

my $regex=join '|', map {substr $_,2}
                    sort {$a cmp $b}
                    map {pack "SA*",length($_),quotemeta($_)} keys %su
+fdata;

my $regex=join '|', map {substr $_,2} 
                    sort
                    map {pack "SA*",length($_),quotemeta($_)} keys %su
+fdata;