URLエンコード/デコード

# URLエンコード
$str =~ s/([^\w ])/'%'. unpack( 'H2', $1 )/eg;
$str =~ tr/ /+/;

# URLデコード
$str =~ tr/+/ /;
$str =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack( 'H2', $1 )/eg;

# URLエンコード
use URI::Escape;
$str = uri_escape( $str );

# URLデコード
use URI::Escape;
$str = uri_unescape( $str );