I might be missing what you're after... The following take a string and cuts it into 8-character strings, separated by spaces, and puts a newline after each 8th one.

Maybe your input file is a list of file names? If that's the case, you seem to know how to get the filename you want. Just use the parts that you need.

If I'm *way* off, I apologize... I'm still pretty new at this :)

my $a = "E1111111E2222222E3333333E4444444E5555555E6666666E7777777E8888
+888E99999";
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";
[download]