21:08 >perl -wE "my $x = '<Remarks>1 SW PLT SLAC 6 PCS &#3;</Remarks>'; $x =~ s/&#\d(?!\d);?//g; say $x;"
<Remarks>1 SW PLT SLAC 6 PCS </Remarks>

21:08 >perl -wE "my $x = '<Remarks>1 SW PLT SLAC 6 PCS &#38;</Remarks>'; $x =~ s/&#\d(?!\d);?//g; say $x;"
<Remarks>1 SW PLT SLAC 6 PCS &#38;</Remarks>

21:09 >perl -wE "my $x = '<Remarks>1 SW PLT SLAC 6 PCS &#3</Remarks>'; $x =~ s/&#\d(?!\d);?//g; say $x;"
<Remarks>1 SW PLT SLAC 6 PCS </Remarks>

21:09 >