s/([\xA0-\x{FFFD}])/$char2entity{$1} || num_entity($1)/ge;