I've a csv file consisting of two columns - one with "Last Name" and other with "Email Address". I would like to match Last Name ( not an exact but a contain match), and if didn't match, populate third column with "0".

Does anyone has a perl script to do accomplish this? or any other way?

Thanks in Advance.

Regards, John.