use IO::Socket;
use MIME::Base64;
use strict;
use warnings;

inspect(encode_base64("peip:930612"));

sub inspect {
    (my $copy = shift) =~ s/([^[:print:]])/sprintf " (0x%02x) ", ord $1/ge;
    print $copy;
}

##</code><code>##

cGVpcDo5MzA2MTI= (0x0a)