>perl -wMstrict -lne
"$::SUM += /(\d+)/ && $1;  END { print $::SUM }
"
foo123bar
foo
xxx111ccc
xxx
^Z
234