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