6.      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex
($1))/eg;