Mega Code Archive

 

Categories / Perl / Regular Expression

 

Repeating patterns

while(<DATA>){    print if /5{1,}/; } __DATA__     Blenheim 1.10     Ben .5     Bill 5.100     Lelly 4.01