$text =~ s/([^[:print:]])([^[:print:]])/
          '&#'.
          ((((ord($1) & 0x7F) << 6) + (ord($2) & 0x7F)) & 0x7FFF).
          ';'/eg;