in reply to Base64 encode and decode

MIME::Base64 oneliners to rescue.
# encode perl -MMIME::Base64 -0777ne 'print encode_base64($_)' bla.pdf > bla.pd +f.encoded # decode perl -MMIME::Base64 -0777ne 'print decode_base64($_)' bla.pdf.encoded +> bla.pdf

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});