#!/usr/bin/perl 
 
open myfiles, "testingfile2.txt" or die "couldn't find file: $!"; 
 
  
 
$allfiles=""; 
 
  
 
while (<myfiles>){ 
 
    chomp; 
    $allfiles .= "$_ ";  
}

use strict; 
use warnings;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my $file = 'testingfile2.txt'; 
open my $filehandle, '<', $file or die "couldn't open '$file': $!"; 
 
my @files; 
my $i = 0; 
  
while ( my $filename = <$filehandle> ){  
 
    chomp $filename; 
    $i++ if length($files[$i]) > 8000; 
    $files[$i] .= "$filename "; 
} 
 
close $filehandle or die "failed to close $file";

#!/usr/bin/perl use strict; 
use warnings; my $file = 'testingfile2.txt' 
open my $filehandle, '<', $file or die "couldn't open '$file': $!"; my @files;  
my $i = 0;while ( my $filename = <$filehandle> ){  
    chomp $filename; 
    $i++ if length($files[$i]) > 8000; 
    $files[$i] .= "$filename "; 
}close $filehandle or die "failed to close $file";