s|&#(\d+);|pack("c",$1)|ge