20:54 >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>

20:54 >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>

20:54 >