>>783
$subject =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;