#!usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);
my @car_list = ();
open(INPFIL,"cars.dat") || die("Couldnt open the file \n");
while(<INPFIL>)
{
	if(/^\s*CARS\s*[A-Z]/)
	{
		my ($car)=$_=/^\s*CARS\s*(\w+)/;
		push(@car_list,$car);
	}
}
print Dumper @car_list;
exit;

##</code><code>##

S:\Steve\Dev\PerlMonks\P-2017-05-29@0722-Cars-Arrays-Groups>perl cars0.pl
$VAR1 = 1;
$VAR2 = 1;
$VAR3 = 1;