No subject

If at all possible, I would suggest that if you can, you modify this
file's format.

Still, if this isn't possible, this works on your input:

perl -lane 's/,,/,MISSING/g; @F = split /,/; if (index($F[-1], "univ") != -1) { ($u = $F[-1]) =~ y/"//d; print $u }'


Formatted more readibly, this looks like this:

perl -lne 's/,,/,MISSING/g;
            @F = split /,/; 
            
            if (index($F[-1], "univ") != -1) {
              ($u = $F[-1]) =~ y/"//d;
              print $u
            }'


This seems to be a reasonable solution to your problem.  I hope it
helps.


Just another Perl hacker,

--kevin
-- 
GnuPG ID: B280F24E