Mega Code Archive

 

Categories / Perl / Regular Expression

 

A negative look behind

while(<DATA>){     print if /(?<!B) B[a-z]*/; } __DATA__     Betty     CBC     ABC