my %subst = map { chr($_) => qq|&#$_;|} 0..255;