perl -le 'print eval join'+',map{split/0+/}1..9999'