DB<19> p $test
&,&#,&#3,&#38,&#38;&,&#,&#3,&#38,&#38;
  DB<20> p $test =~ s/(&#\d+;)|&#?\d*/$1/gr
,,,,&#38;,,,,&#38;