perl -e 'while ($s=<*>) { print $s,"\n"; sleep 5 }'

##</code><code>##

use strict;
use warnings;

my @files;
my $filecount=0;
while (my $s=<*>) {
  push @files, $s;
  if (++$filecount>=100) {
    DoTheMoveWith(@files);
    $filecount=0;
  }
}
DoTheMoveWith(@files) if (@files);