print if /$number/ ... /^\d+/ and /^-/;