# Well-known and used-a-lot encoding: Quoted-Printable (QP)
# to encode:

s/(=|[^\s -~])/"=".uc unpack("H2",$1)/ge;

# to decode

s/=([0-9A-Fa-f][0-9A-Fa-f])/pack("c",hex($1))/ge