On 24 Jul 1999, Randal L. Schwartz wrote: >perl -ne '$o = $_; $s = 0; $s += $n while $n = tr/A-Za-z/@-Y`-y/; print $o if $s == 100' /usr/dict/words Smartass! :-) ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe