# Using fixed-length records is something like...
do {
   local $/ = \100;
   while (<DATA>) {
      print OUTFILE $_;
   }
}