Select Code to Download

use IO::Socket;
use MIME::Base64;
...
    (my $copy = shift) =~ s/([^[:print:]])/sprintf " (0x%02x) ", ord $
+ 1/ge;
    print $copy;
}

cGVpcDo5MzA2MTI=

cGVpcDo5MzA2MTI=
 peip:930612