my $a = "E1111111E2222222E3333333E4444444E5555555E6666666E7777777E8888888E99999";
my $cnt = 0;

while (length($a)) {
  my $b = substr($a,0,8);
  print "$b ";
  $a = substr($a, 8);
  if (!(++$cnt%8)) { print "\n"; }
}
print "\n";