#!perl

use strict;
use warnings;

my $valid_vehicle_description_pattern = qr{
    ((?:19|20)\d\d)        # $1 is Year
    \s+
    (                      # $2 is Make
        British\s+Leyland
      | Chev(?:y|rolet)
      | Dodge
      | Ford
      | (?:General\s+Motors|GMC?)
      | Hyundai
      | Kia
      | Nissan
      | Toyota
    )
    \s+
    (\S.*)                 # $3 is Model
}ix;

while (my $vehicle = <DATA>) {
    chomp $vehicle;

    if ($vehicle =~ $valid_vehicle_description_pattern) {
        my ($year, $make, $model) = ($1, $2, $3);

        print "Year: $year\tMake: $make\tModel: $model\n";
    }
    else {
        warn "Invalid vehicle description: $vehicle\n";
    }
}

__DATA__
1970 British Leyland Triumph Spitfire
2011 CHEVROLET CAMARO
2011 Chevy Camaro
2011 Dodge Ram Crew Cab Short Bed
2011 Ford F150 Platinum
2011 Ford Flex
2011 Ford Transit
2011 GMC Cargo Van Extended
2011 Hyundai Genesis Coupe
2011 Kia Sol
2011 Nissan Cube
2011 Toyota Prius
2015 Apple iCar