Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. The bracket metacharacters and negation
while(){
    print if / [^123]0/
}
__DATA__
    101
    201
    301
    401
    501
    601