Ronald J Kimball <rjk@linguist.thayer.dartmouth.edu> wrote: > 60 characters, including 5 for -le'': > > perl -le'$a=pop;%0=(),@0{/./g}=s/[$a]//g,$n+=keys%0for<>;print$n' as < test Oh, well. I was about to post a 71-character solution. I'll have to content myself with shaving 2 off yours: perl -le'$a=pop;%0=(),@0{/[^$a\n]/g}=1,$n+=keys%0for<>;print$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