$foo =~ s/['<&>"]/"&#".ord($&).";"/ge;