$ perl -MMIME::Base64=encode_base64 -E'say encode_base64(shift^shift)' txt key
Hx0N

##</code><code>##

$ perl -MMIME::Base64=decode_base64 -E'say decode_base64(shift)^shift' Hx0N key
txt