Help for this page

Select Code to Download


  1. or download this
    $data =~ s{
   ([^\w\s\xA0~!@#$%^&*\-_=+()[\]{}|;:'`",<.>/?\xA9\xA7])
}{
   sprintf "{U+%04X}", ord($1)
}xeg;
  2. or download this
    use charnames qw( :full );

...
}{
   sprintf "{U+%04X}", ord($1)
}xeg;