$val =~ s/(\W)/sprintf( "%%%02X", unpack("C", $1) )/eg;
水無瀬 優 postmaster@katsura-kotonoha.sakura.ne.jp >> Amazon.co.jp 『たまゆら童子』 へ>> 楽天ブックス 『たまゆら童子』 へ
