RosettaCodeData/Task/URL-encoding/Perl-6/url-encoding.pl6

my $url = 'http://foo bar/';

say $url.subst(/<-alnum>/, *.ord.fmt("%%%02X"), :g);