my @pinWords = ();
                if($line =~ m/.*?,.*?,.*/){
                    @pinWords = split(',',$line);
                }
                elsif($line =~ m/.*?;.*?;.*/){
                    @pinWords = split(';',$line);    
                }