Comment écrire une fonction «urldecode» en Perl?

sub urldecode($) {
   my ($str) = @_;
   $str =~ s/+/ /g;
   $str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
   return $str;
}