in reply to Re^2: number of numbers in a string
in thread number of numbers in a string

how about this (works on STDIN): 
#!/usr/bin/perl -ln
$n+=(1<<length)-1for/(\d+)/g;
END{print $n}

[download]
 ignore that, I'm off to think.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom