if $number !~ /^[0-9][0-9][0-9][0-9]$/ {