Rick Delaney <rick.delaney@home.com> wrote: > 54: > perl -lpe'INIT{$c=pop}@1{/[^$c]/g}=%1=(),$n+=keys%1}{$_=$n' as <test > > 52: > perl -lpe'INIT{$c=pop}@1{map$_.$.,/[^$c]/g}=1}{$_=keys%1' as <test 50: perl -lpe'INIT{$c=pop}$n+=keys%{{/([^$c])()/g}}}{$_=$n' as <test -- Keith C. Ivey <kcivey@cpcug.org> Washington, DC ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe