perl -lne 'print $s += $1 if /(\d+)/'