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

##</code><code>##

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