If you want a negation you sould use !~ as operator instead of =~ or unless instead of if as condition. The regex matches 4 digits anywhere in $number. Correct use of possible regexe's is explained above.