use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new ({
	sep_char => ',',
	binary => 1,
	auto_diag => 1,
	allow_loose_quotes => 1
	});
my $file = $ARGV[0] or die "Need to load a file from stdin";

open (my $data, '<', $file) or die "Couldn't load file '$file'\n";
while(my $row = $csv->getline($data)) {
	my @fields = @{$row};
	my $notesField = $fields[25];
	if (defined $notesField) 
	{
		if ($notesField =~ /First Name:.*?(?=Last)/)
		{
			print "MATCHED!";
		}
		
	}
	else
	{
		print"No Notes Field \n\n";
	}
}
	
if (not $csv->eof) {
	$csv->error_diag();
}
close $data;