RosettaCodeData/Task/URL-decoding/Perl-6/url-decoding-2.pl6

$url ~~ s:g[ '%' (<:hexdigit> ** 2) ] = chr :16(~$0);
say $url;