DB<96> $_= "123,foo"

  DB<97> p scalar m/(\d+,)/   # boolean value
1
  DB<98> p  m/(\d+,)/         # list of captures
123,
  DB<99>