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