#!/bin/perl

open CSV3, "<csv3" or die;

while (<CSV3>) {

  chomp;

my ($title) = $_ =~ /^.+?,\s*([^,]+?),/; #/ match the title         

    my %words;

    $words{$_}++ for split /\s+/, $title;    #/ get words             

    ## Collect unique words                                           
    #+                                             
    #    my @titlewords = keys(%words);                                          
my @titlewords = keys(%words);
#print "$title"


}



sub find_year {
    my( $str ) = @_;
    my $year;
    $year = $1
        if( $str =~ /\b((?:19|20)\d\d)\b/ );
    return $year
}

&find_year ($title);