Mega Code Archive
Categories
/
Perl
/
Regular Expression
The metasymbol, d
while(<DATA>){ print if /6\d\d/ } __DATA__ 101 201 301 401 501 601