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