URL文字列のエンコード

今日1番のはまりどころだった。

use URI::Escape;
my $escaped_uri   = uri_escape($raw_string);
my $unescaped_uri = uri_unescape($encoded_string);