$ perl -le '$, = ", "; print ("149-" =~ /[0-99999]/g)'
1, 4, 9