Select Code to Download

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

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