Mega Code Archive
Categories
/
Perl
/
Regular Expression
The bracket metacharacters and negation
while(<DATA>){ print if / [^123]0/ } __DATA__ 101 201 301 401 501 601