$linkref =~ s/($re)/sprintf "%%%02X", ord $1/ge;