>>731
URI::Escape がないんですかねえ。
各種 CGI::* なモジュールにもついてますけど(CGI::Simple::url_encode()とか)
昔に戻るとか。

$pren =~ s/(\W)/'%' . unpack('H2', $1)/eg;