$/ = \8; # Read 8-byte records. Behind the scenes, Perl will do buffering of reads.
$out_buffer .= blowfishify($_) while <INFILE>;
print OUTFILE $out_buffer;