Mega Code Archive

 

Categories / Perl / Regular Expression

 

A negative look ahead

while(<DATA>){    print if/^\w+\s(?![BC])/; } __DATA__     ABC     CBC