open (FILE, 'test.txt') or die "$!\n";
my @line = <FILE>;
foreach my $line (@line) {
   chomp $line;
   my($car, $color, $amount) = split(/ /, $line);
   print "$car $color $amount\n";
}