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


my $encode =  encode_base64("peip:930612");
print "$encode \n";

chomp $encode;
inspect($encode);

my $decode = decode_base64($encode);
print "\n $decode \n";

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