map {open IN,"$_";undef $/; $all_files_data .= <IN>;close IN;} @files;

print "$all_files_data";