$qs =~ s/ /+/g;
$qs =~ s/(\W)/sprintf("%%%x", ord($1))/eg;