use MIME::Base64;

my $str = 'Whatever';

my $encoded = encode_base64($str, '');

$encoded =~ s/(.{1,64})/$1\n/g;

print $encoded;