Along the same lines as pack, there is the MIME::Base64 module, a standard part of Perl.

use MIME::Base64 qw( encode_base64  decode_base64);

$ascii_dat = encode_base64($bin_string);

#or reverse

$bin_string_back = decode_base64($ascii_dat);
[download]