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