my $f = 'blah;, ente°, blah;, blah.';
$f =~ s{(?<!&[#]x[A-Za-z0-9]{2});,}{,}g;
print "$f\n";
__END__
blah, ente&#xB0;, blah, blah.