!URIエスケープ
$strをURIエスケープする
 $str =~ s/(\W)/'%'.unpack('H2',$1)/eg;
!URIアンエスケープ
$strをURIアンエスケープする
 $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg;
{{category perl}}