my $string = '';

for my $file ( @files_on_cd ){
    $string .= do{ local ( @ARGV,$/ ) = $file; <> };
}