my $encodedString = "AUTH PLAIN " . encode_base64(join("\0", $auth->{user}, $auth->{user}, $auth->{password}), $CRLF); my $decodedString = decode_base64($encodedString); warn("decodedString '$decodedString'"); #### AUTH PLAIN d2VibWFzdGVyXEBid21qY20udXMAd2VibWFzdGVyXEBid21qY20udXMAd21ANDA5MTNXTQ== #### DÇ<°5Ý•‰µ…ÍÑ•Éq‰Ýµ©´¹ÕÌÝ•‰µ…ÍÑ•Éq‰Ýµ©´¹ÕÌݵ ÐÀäÄÍ]4