Mega Code Archive
Categories
/
Perl
/
Regular Expression
The dot metacharacter
while(<DATA>){ print "Found Norma!\n" if /N..ma/; } __DATA__ Tom 101 Mary 201 Jason 301 Norma 401 Jack 501 Kate 601