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