perl -e '$a="1b2cde5";for($a=~/(\d+)/g){$t+=$1;};print "$t\n";'
perl -e '$a="1b2cde5";for($a=~/(\d+)/g){$t+=$_;};print "$t\n";'