#!/usr/bin/env perl
use strict;
use warnings;
use feature ':5.10';

my $titles=' STOCK   N/U YR   MAKE       BODY       COLOR      VIN                INV DTE  AGE ORIG COST  PKD COST   PK CST + HB CURR COST  FLR PL / AP RETAIL     STOCK          C/T ENG  MODEL      SERIES     TRIM       PO/RO     MILES    OPTIONS ' ;
my @cols = (
	qw(
		STOCK N/U YR MAKE BODY COLOR VIN COST STOCK MODEL 
		SERIES TRIM PO/RO MILES OPTIONS
	)
	, 'C/T ENG'
	, 'INV DTE'
	, 'AGE ORIG'
	, 'PKD COST'
	, 'PK CST + HB CURR COST'
	, 'FLR PL / AP RETAIL'
);

foreach my $col ( @cols ) {
	my $recol = quotemeta( $col );
	$titles =~ m/$recol/g;

	unless ( pos($titles) ) {
		say "ERROR: NOCOL $col";
	}

}