$string =~ s/([^a-zA-Z0-9])/'&#'.unpack('U0U*',$1).';'/eg;