Mega Code Archive

 

Categories / Perl / Regular Expression

 

Clustering and anchors

while(<DATA>){     # print if /^A|B/;     print if /^(S|B)/; } __DATA__     S B     B B     A C     N C     J D     K E