$text =~ s{([^\0-\377])}{'&#'.ord($1).';'}ge;