$file[$i]=do{local(@ARGV,$/)=$files[$i];<>};