$ perl -le '$, = ", "; print ("+10510-2043" =~ /([-+])(\d{0,5})([-+])(\d{0,5})/)'
+, 10510, -, 2043