#!/usr/bin/perl -p
s/([^\n\t -~]|[ \t]$)/'='.sprintf("%02X",ord($1))/ge;s/(.{70}[^=\n]{2})/$1=\n/;