$foo =~ s/(\W)/"%".sprintf "%02x",ord$1/eg;