$val =~ s/(\W)/sprintf( "%%%02X", unpack("C", $1) )/eg;
水無瀬 優 postmaster@katsura-kotonoha.sakura.ne.jp