In the first snippet, you should move the print into the loop to avoid using gigabytes of memory. That seemed to be the point of the OP's buffering.

$/ = \8; # Read 8-byte records. Behind the scenes, Perl will do buffer
+ing of reads.
print OUTFILE blowfishify($_)
   while <INFILE>;
[download]