$sum += $_ for $expression =~ /([-+]?[0-9]+)/g;