Today around 2:47pm, Rick Delaney hammered out this masterpiece: : "Casey R. Tweten" wrote: : > : > 56 characters, including 5 for -le'': : > : > perl -le'$c=pop;@1{/[^$c\n]/g}=%1=(),$n+=keys%1for<>;print$n' as <test : : Thanks, that gives me two more variations. : : 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 Just for the record, I started with something similar and abandoned it for no good reason I see. ;-) Good work. -- print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'crt@kiski.net',site=> 'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig->{site})+6),"\n"; print map{$_.': '.$sig->{$_}."\n"}sort{$sig->{$a}cmp$sig->{$b}}keys%{$sig}; my $VERSION = '0.01'; #'patched' by Jerrad Pierce <belg4mit at MIT dot EDU> ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe