Mega Code Archive

 

Categories / Perl / Regular Expression

 

Clustering or grouping

while(<DATA>){     print if /\s(12){3}$/;  # match exactly 3 consecutive occurrences of 12 at the end of the line } __DATA__     Mary     Betty Boop     Mark 123     123 123 123