open (FILE, 'E:\ptest\cars.txt'); while () { chomp; ($year, $make, $model) = split(" "); print "$year "; print "$make "; print "$model \n"; } close (FILE); exit;