$_ = 'word 15,000 word word 20,000';
  my @a = grep {s/(?<=\d),(?=\d)//g || $_} split;