#!/usr/bin/perl
use MIME::Base64 qw(encode_base64);
my $buf = "";
while (<>) {
$buf .= $_;
if (length($buf) >= 57) {
print encode_base64(substr($buf, 0, int(length($buf) / 57) * 57, ""));
}
}
print encode_base64($buf);
#!/usr/bin/perl
use MIME::Base64 qw(encode_base64);
my $buf = "";
while (<>) {
$buf .= $_;
if (length($buf) >= 57) {
print encode_base64(substr($buf, 0, int(length($buf) / 57) * 57, ""));
}
}
print encode_base64($buf);