<quote who="Martin Visser">
> perl -e 'while(<>){$a+=s/[,]//g};print "$a\n"' <input.txt
>
> Do I win??Oddly, perl very rarely wins these. ;-) - Jeff -- linux.conf.au 2008: Melbourne, Australia http://lca2008.linux.org.au/ "Odd is good by the way. I knew normal in high school and normal hates me." - Mary Gardiner -- SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/ Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html
