http://qs321.pair.com?node_id=670615


in reply to Anything that is not ',' except .... RegEx question

Hi Win, you can try like this also,

use strict;

while(<DATA>){
    chomp;
    if(($_!~/,/i)||($_=~/,(?= (?:city of|country of))/i)){
        print "$_\n"
    }
}

[download]

Punitha

In Section Seekers of Perl Wisdom